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2725 26MEGABYTES - 
5 $4995. | 


Sud 4 5-100 microcomputer systems сап easily handle 100 million 
byfes. Because Morrow Designs" now offers the first 26 megabyte hard disk 
memory for 5-100 systems— the DISCUS M26™ Hard Disk System. 
Ithas 26 megabytes of useable memory (29 megabytes 
unformatted). And it's expandable to 104 megabytes. 
The DISCUS M26™ system is delivered complete— 
026 megabyte hard disk drive, controller, cables and operating system for 
pst 54995. Up to three additional drives сап be added, $4495 apiece. `. 
The DISCUS M26™ system features the Shugart SA4008 
Winchester-type sealed media hard disk drive, in a handsome metal cabine 
‘with fan and power supply. е 
; The single-board S-100 controller incorporates intelli 
gence to supervise all data transfers, communicating with the CPU Ма : 
three 1/0 ports (command, status, and data). The controller has the ability 10 
generate interrupts at the completion of each command to increase system 
throughput. There is a 512 byte sector buffer on-board. And each sector canbe 
individually write-protected for data base security. 4 
ї The operating system furnished with DISCUS M26" t 
systems is the widely accepted СР/М* 2.0. қ 
See the biggest, most cost-efficient memory ever intre 
_ duced for 5-100 systems, now at your local computer shop. If unavailable 1 i e MORROW DESIGNS ™ 
© locally write Morrow Designs;" 5221 Central Avenue, Richmond, CA E Th. 3 
Ж call (415) 524-2101, weekdays 10-5 Pacific Time. inker 
“CP/M is a. frademark of Digital Research. 


65-100 


MICROSYSTEMS 


Volume 1 Number 4 


Editorial Correspondence should be sent to: 
S-100 MICROSYSTEMS, BOX 1192, 
Mountainside, NJ 07092. 


STAFF 


Sol Libes 
publisher/editor 


Claudette Moore 
managing editor 


Patti Balinski 
layout/typesetting 


Jacob Epstein 
CP/M* editor 


Jon Bondy 
Pascal editor 


Don Libes 
assistant editor 


Lennie Libes 
Susan Libes 
subscriptions/offica manager 


S-100 MICROSYSTEMS is seeking articles 
on S-100 software, hardware and applica- 
tions. Program listings should be typed on 
white paper with a new ribbon. Articles 
should be typed 40 characters/inch at 10 
pitch. Author’s name, address and phone 
number should be included on first page of 
article and all pages should be numbered. 
Photos are desirable and should be black 
and white glossy. 


Commercial advertising is welcomed. Write 
to S-100 MICROSYSTEMS, 93 Washington 
St., Morristown, NJ 07960, or phone 
Claudette Moore at 201-267-4558. 


ТМК Digital Research 


July/August 1980 


IN THIS ISSUE 


16 Bit Wide Memory for the S-100 Bus 
Ken Maun & Pat Stakem 


8080 Dynatrace 
Charlie Foster & Richard Meador 


The CP/M Connection 
Chris Terry 


North Star Topics 
Randy Reitz 


A Monitor Program in Pascal 
Jon Bondy 


5-100 Processor Boards & Manufacturers 
Sol Libes 


DEPARTMENTS 


Editor's Page 
Letters to the Editor 
News & Views 
Product Review 
New Products 
Software Directory 
Advertiser Index 


5-100 MICROSYSTEMS (USPS 529-530) is published six times 
per year for $9.50 per year (USA) by LIBES, INC., 995 
Chimney Ridge, Springfield, NJ 07081. Controlled circulation 
pending at Baltimore, Maryland. 

POSTMASTER: Send address changes to 5-100 MICRO- 
SYSTEMS, PO Box 789-M, Morristown, NJ 07960. 


Copyright € 1980 by Libes, Inc. 
All rights reserved, reproduction prohibited without permis- 
sion. 


Editor's Page 
by Sol Libes 


The S-100 Bus: Past, Present 


And Future 


Part Il 


This is the second, and concluding 
article, analyzing the S-100 computer 
systems picture. The first part, which 
appeared in issue 3 covered the 
history of the S-100 bus systems. This 
article discusses its present status, and 
what I believe to be its future 
direction. 

$-100 bus-based systems have been 
in manufacture now for over five 
years. The life span of the bus is the 
longest of any of the personal com- 
puter systems—over twice as long as 
that of the TRS-80, PET, and Apple 
computers. Moreover, there are more 
5-100 systems in operation than there 
are TRS-80, PET, and Apple com- 
puters; I would estimate that there are 
presently over 200,000 installed S-100 
computer systems. 

Furthermore, the dominance of the 
microcomputer field by S-100 systems 
will increase, since Radio Shack plans 
to stop production on the TRS-80, 
Model I before the end of the year. 
$-100's, I predict, will continue to be 
manufactured for a long time to come. 

I have heard several people say, 
“5-100 is dead," and I have even seen 
statements like this in print. The ar- 
ticles that contained this statement 
usually included other erroneous 
statements as well. This misbelief is 
generally based on the fact that five 
$-100 manufacturers closed their 
doors in 1978-79 (although two subse- 
quently opened again); however, the 
early demise of these companies was a 
result of mismanagement, not of their 
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use of the S-100 bus. The fact is that 
during 1979, five new manufacturers 
of 5-100 mainframes entered the 
market; so far this year, there are four 
new S-100 mainframe makers. I last 
counted a total of 19 S-100 mainframe 
manufacturers, over 60 manufac- 
turers of plug-in boards, and a stag- 
gering 160 suppliers of software for 
5-100 systems. 

Since the number of manufacturers 
of S-100 products far exceed the 
number of manufacturers of products 
for TRS-80, Apple and PET, it is ob- 
vious that the gross S-100 business is 
greater. 

The fact is, for sophisticated system 
development work, or for business or 
scientific applications, S-100 based 
systems are the only systems offering 
the necessary power апа features. 
Furthermore, they provide these addi- 
tional features at a cost that is com- 
pétitive with the less powerful TRS-80, 
etc., systems. For example, try shop- 
ping for a word processing system to 
run a good word processor software 
package (e.g., WordStar), and you will 
find that an S-100 system is less expen- 
sive than a TRS-80 Model II (you can- 
not run WordStar on a Model I). 

But, most importantly, $-100 based 
systems offer power, features, and 
flexibility that are just not available on 
most other personal systems. To be 
specific: 
= More software is available. There 

are several times more high-level 

languages, operating systems, and 


applications packages for S-100 bas- 
ed systems than there are for any 
other system. Languages such as 
Basic, Fortran, Pascal, Cobol, APL, 
Algol Lisp, C, and many more. 


в There is greater computer power 


capability with the S-100. What 
other system has direct addressing 
of up to 16 M bytes of memory (24 
address lines) and 64K input/output 
ports (16 address lines), up to eleven 
vectored interrupt lines, up to six- 
teen masters on the bus (with priori- 
ty), up to twenty-three plug-in slots 
on the motherboard, up to 10 MHz 
clock on the bus, plug-in operator 
front panel, and тоге? 

8 The 5-100 bus is now standardized 
by the Institute of Electrical and 
Electronic Engineers (IEEE), assur- 
ing conformity among manufac- 
turers. The only other standardized 
bus is the Intel Multibus, which is 
less powerful and more expensive 
than the 5-100. 


и The modularity of the S-100 system 


assures that these systems can be 
upgraded with the changing state of 
the art. For example, there are 
owners of five-year-old Altairs who 
have installed 16-bit CPU’s into their 
systems with just some plug-in 
board changes. 


Today, the S-100 computer bus is а 
mature, refined system that has evolv- 
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Hard disk and hardtape control 


Up to 2400 Megabytes of 
hard disk control for the 
5-100 bus. 


Konan's SMC-100 interfaces S- 100 bus micro 
computers with all hard disk drives having the 
Industry Standard SMD Interface. It is available 
with software drivers for most popular operating 
systems. Each SMC-100 controls up to 4 drives 
ranging from 8 to 600 megabytes per drive, 
including most "Winchester" drives - - such as 
Kennedy, Control Data, Fujitsu, Calcomp, 
Microdata, Memorex, Ampex, and others. 

SMC-100 is a sophisticated, reliable system 
for transferring data at fast 6 to 10 megahertz 
rates with onboard sector buffering, sector 
interleaving, and DMA. 

SMC-100's low cost-per-megabyte 
advanced technology keeps your micro computer 
system micro-priced. Excellent quantity discounts 
are available. 


Konan's HARDTAPE" 
subsystem... very low cost 
tape and/or hard disk 
Winchester backup and more. 


Konan's new DAT-100 Single Board Controller 
interfaces with a 171/2 megabyte (unformatted) 
cartridge tape drive as well as the Marksman 
Winchester disk drive by Century Data. 

The DAT-100 "hardtape" system is the only 
logical way to provide backup for "Winchester" 
type hard disk systems. (Yields complete hard 
disk backup with data verification in 20-25 
minutes. ) 


Konan's HARDTAPE™ subsystem is 
available off the shelf as a complete tape and 
disk mass storage system or an inexpensive tape 
and/or disk subsystem. 


Konan controllers and 
subsystems support most 
popular software packages 
including FAMOS", CP/M® 
version 2.X, and MP/M. 


Konan, first (and still the leader) in high- 
reliability tape and disk mass storage devices, 
offers OEM's, dealers and other users continuing 
diagnostic support and strong warranties. Usual 
delivery is off the shelf to 30 days with complete 
subsystems on hand for immediate delivery. 


Call Konan's TOLL FREE ORDER LINE today: 
800-528-4563 


Or write to Bob L. Gramley 
Konan Corporation, 1448 N. 27th Avenue 
Phoenix, AZ 85009. TWX/TELEX 9109511552 


CP/M® is а registered trade name of Digital Research, 
FAMOS'M is a trade name of MVT Micro Computer Systems. 
HARDTAPE™ is a trade name of Konan Corporation. 


R2 д О... Тһе $100 ROM, 
RAM 6 I/O Board 


ELECTRONIC CONTROL TECHNOLOGY 's R?l/O is an 
5-100 Виз ИО Board with 3 Serial ИО Ports (UART's), 1 
Parallel 1/О Port, 4 Status Ports, 2K of ROM with Monitor 
Program and 2K of Static RAM. The R?I/O provides a conven- 
ient means of interfacing several I/O devices, such as - CRT 
terminals, line printers, modems or other devices, to an S-100 
Bus Microcomputer or dedicated controller. It also provides for 
convenient Microcomputer system control from a terminal 
keyboard with the 8080 Apple ROM monitor containing 26 
Executive Commands and І/О routines. It can be used іп 
dedicated control applications to produce a system with as few 
as two boards, since the Н21/О contains ROM, RAM and ИО. 
The standard configuration has the Monitor ROM located at 
F000 Hex with the RAM at F800 Hex and the I/O occupies the 
first block of 8 ports. Jumper areas provide flexibility to change 
these locations, within reason, as well as allow the use of 


e 5-100 BUS e3 Serial I/O Ports ROM's other than the 2708 (e.g. 2716 or similar 24 pin de- 
e 2K ROM e 1 Parallel І/О Port vices). Baud rates are individually selectable from 75 to 9600. 
e 2K RAM e 4 Status Ports Voltage levels of the Serial I/O Ports are RS-232. 


е ROM Monitor (Operating System) 


8080 APPLE MONITOR 


POE PU ee COMMANDS 
R?I/O A —Assign 1/0 

ROM, ВАМ & I/O B –Вгапсћ to user routine A-Z 
| С - Undefined 


D -Display memory on console in Hex 
E —End of file tag for Hex dumps 

F - Fill memory with a constant 

G -GOTO an address with breakpoints 
Н —Hex math sum & difference 

| - User defined 

J —Non-destructive memory test 

К -User defined 

L -Load a binary format file 

M - Move memory block to another 


address 
йа, N - Nulls leader/trailer 
MONITOR 0 —User defined 
(OPERATING | Р-Рш ASCII into memory 
SYSTEM) Q -Query 1/0 ports: QI (N)-read 1/0; 


QO(N,V)-send 1/0 
R - Read a Hex file with checksum 
S —Substitute/examine memory in Hex 
T -Types.the contents of memory in 
ASCII equivalent 
U -Unload memory in Binary format 
V - Verify memory block against another 
memory block 
W — Write a checksummed Hex file 
X —Examine/modify CPU registers 
Y —'Yes there’ search for 'N' Bytes 
in memory 
2-7 END’ address of last R/W memory 
location 


Specializing in Quality Microcomputer Hardware 
Building Blocks for Microcomputer Systems, Control and Test Equipment 
Card Cages, Power Supplies, Mainframes, CPU's, Memory, I/O 


ELECTRONIC CONTROL TECHNOLOGY (201) 686-8080 


763 Ramsey Ave., Hillside, N.J. 07205 


41 A Intersystems,, 
dump” is an instruction. 


Not a way of life. 


(Or, when you're ready for IEEE $-Ю0, will your 
computer be ready for you?) 


== 


We're about to be gadflies again. 

While everyone's been busy 
trying to convince you that large 
buses housed in strong metal 
boxes will guarantee versatility 
and ward off obsolescence, we've 
been busy with something better. 
Solving the real problem with the 
first line of computer products 
built from the ground up to con- 
form to the new IEEE S-100 Bus 
Standard. Offering you extra ver- 
satility in 8-bit applications today. 
And a full 16 bits tomorrow. 

We call our new line Series 
ІП“ And even if you don't need the 
full 24-bit address for up to 16 
megabytes (!) of memory right 
now, they're something to think 
about. Because of all the perform- 


Sot: 


ance, flexibility and economy 
they offer. Whether you're looking 
at a new mainframe, expanding 
your present one or upgrading 
your system with an eye to the 
future. (Series ІІ boards аге com- 
patible with most existing S-100 
systems and а// IEEE S-100 Stan- 
dard cards as other manufacturers 
get around to building them.) 
Consider some of the fea- 
tures: Reliable operation to 4MHz 
and beyond. Full compatibility 
with 8- and 16-bit CPUs, pe- 
ripherals and other devices. Eight 
levels of prioritized interrupts. Up 
to 16 individually-addressable 
DMA devices, with IEEE Standard 
overlapped operation. User-selec- 
table functions addressed by DIP- 
switch or jumpers, eliminating sol- 
dering. And that's just for openers. 
The best part is that all this 
heady stuff is available now! In 
our advanced processor — a full 
IEEE Bus Master featuring Memory 
Мар” addressing to a full mega- 
byte. Our fast, flexible 16K Static 
RAM and 64K Dynamic RAM 
boards. An incredibly versatile and 


economical 2-serial, 4-parallel 
Multiple 1/O board. 8-bit A/D-D/A 
converter. Our Double-Density 
High-Speed Disk Controller. And 
what is undoubtedly the most flex- 
ible front panel.in the business. 
Everything you need for a com- 
plete IEEE S-100 system. Available 
separately, or all together in our 
new DPS-1 Mainframe! 

Whatever your needs, why 
dump your money into obsolete 
products labelled "IEEE timing 
compatible" or other words peo- 
ple use to make up for a lack of 
product. See the future now, at 
your Intersystems dealer or call/ 
write for our new catalog. We'll 
tell you all about Series || and the 
new IEEE 5-100 Bus we helped 
pioneer. Because it doesn't make 
sense to buy yesterday's products 
when tomorrow's are already here. 


N тм 
[mterSystems 
Ithaca Intersystems Inc., 
1650 Hanshaw Road/PO. Box 91, 


Ithaca, NY 14850 
607-257-0190/TWX: 510 255 4346 
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Take a byte. 


Software for most popular 8080/Z80* computer disk systems including 


NORTH STAR, iCOM, MICROPOLIS, DYNABYTE DB8/2 & DB8/4, EXIDY SORCERER, SD SYSTEMS, ALTAIR, 
VECTOR MZ, MECA, 8” ІВМ, HEATH Н17 & H89, HELIOS, IMSAI VDP42 & 44, REX, NYLAC, INTERTEC SUPER- BRAIN, 
МОРЕ! I and MODEL I, ALTOS, OHIO SCIENTIFIC, DIGI-LOG, KONTRON PSI-80, 


VISTA V80 and V200, TRS-80* M 


IMS 5000 diskette formats and CSSN BACKUP cartridge tapes. 


CP/M” VERSION 2 FOR TRS-80 MODEL Il NOW AVAILABLE 


Alone 
CP/M* FLOPPY DISK OPERATING SYSTEM - Digital 
Research's operating system configured for many 
popular micro-computers and disk systems 


О 


System Version Price 
North Star Single Density ........1.4 145/25 v 
North Star Double Density . 2.1.4... 145/25 
North Star Double/Quad ... .2x....170/25 
iCOM Micro-Disk 2411 .. 2.1.4... .145/25 
ІСОМ 3712 1.4 170/25 у" 
iCOM 3812 . 1.4... .170/25" 
Mits 3202/Altair 8800 . ‚1.4... .145/25 
Heath HB + H17 . .14....145/25 & 
Heath H89 .. 14....145/25% 
Heath H89 by Magnolia .1.4....250/25) 
TRS-80 Model |, 1.4... .145/25 4) 
TRS-80 Model 1! а К .2.х....170/25 
TRS-80 Model Il + Corvus . 2x....250/25 
Processor Technology Helios И ..1.4....145/25 
Cromemco System 3 114... 145/25 
Inte! MOS Single Density . 1.4... 145/25 
Intel MDS Single Density .2.x... 170/25 
Micropolis Mod | 1.1.4... 145/25 v 
Micropolis Mod 1 14....145/25 v 


The following configurations are scheduled for re- 
lease soon: 

Apple И 2 
North Star Double/Quad + Corvus 
North Star Horizon HO-1 .... 

Ohio Scientific C3 : 

Ohio Scientific C3-C 
Micropolis Mod Il , 

Mostek MDX STD Bus System . 
iCOM 3812 ane 
iCOM 4511/Pertec 03000 ..375/25 * + 
Durango F-85 . .170/25 
Software consists of the operating system, text edi- 
tor, assembler, debugger and other utilities for file 
management and system maintenance. Complete set 
o! Digital Research's documentation and additional 
implementation notes included. Systems marked * 
and ** include firmware on 2708 and 2716. Systems 
marked % include 5440 media charge. Systems 
marked @ require the special @ versions of software 
in this catalog. Systems marked v have minor variants 
available to suit console interface of system. Call or 
write for ІШІ list of options. ( includes hardware addi- 
tion to allow our standard versions of software to run 
under it. 


П 280 DEVELOPMENT PACKAGE — Consists of: (1) disk 

® Пе line editor, with global inter and intra-line facili- 
ties; (2) Z80 relocating assembler, Zilog/Mostek mne- 
monics, conditional assembly and cross reference 
table capabilities; (3) linking loader proeuotn Ps 
lute Intel hex disk file .... 555% 


ГІ ZOT — 280 Monitor Debugger to break and, examine 
% registers with standard Zilog/Mostek mnemonic dis- 
assembly displays. $35 when ordered with 280 Devel- 
opment Package А 550/510 


О XASM-68 — Non-macro соса with nested 
conditionals and full range of pseudo operations. As- 
sembles from standard Motorola MC6800 mnemonics 
to Inte! hex .. x ..$200/$25 


Г) XASM-65 — As ХАЗМ-68 for Mos Technology MCS- 
6500 series mnemonics . ............... $200/$25 


O DISTEL — Disk based disassembler to Intel 8080 or 
TDL/Xitan 280 source code, listing and cross refer- 
ence files, Intel or TDL/Xitan pseudo ops optional. 
Runs on 8080 5/510 


Г) DISILOG — As DISTEL to Zilog/Mostek mnemonic 
@ files. Runs оп 280 only .... 565/510 


ГІ SMAL/80 Structured Macro Assembler Language — 
(& Package of powerful general purpose text macro 
processor and SMAL structured language compiler. 
SMAL is an assembler language with IF-THEN-ELSE, 
LOR DEER CURE, DO-END, BEGIN-END con- 
structs -$75/$15 


© tiny C — Interactive interpretive system for teaching 
(& structured programming techniques. Manual includes 
full source listings .$105/$50 


BDS C COMPILER — Supports most features of lan- 
guage, including Structures, Arrays, Pointers, recur- 
© sive function evaluation, overlays. Includes linking 
loader, ibrary manager, and library containing gen- 


- -350/250 
250/25 


eral pui е, file 1/0, and floating point functions. 
Lacks ializers, statics, floats and longs. Docu- 
7 mentation includes "The C PROGRAMMING LAN- 


GUAGE" by Kernighan and Ritchie .......$125/$20 


Г] WHITESMITHS C COMPILER — The ultimate in 5у5- 

© tems software tools. Produces faster code than а 

@ pseudo-code Pascal with more extensive facilities. 
Contorms to the full UNIX* Version 7 C language, de- 
scribed by Kernighan and Ritchi 
able over 75 functions for performing 
manipulation and storage allocation 
Microsoft REL files. Requires 60K CP/M . 


Linkable 19 
..$630/$30 


Prices andspecifications subject to change without notice. 
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M BASIC-80 — Disk Extended BASIC, ANSI compatible 
© with long variable names, WHILE/WEND, chaining. 
М) variable length file records . 5325/525 


ГІ BASIC COMPILER — Language compatible with 
(© BASIC-80 and 3-10 times faster execution. Produces 
» standard Microsoft relocatable binary output. In- 
cludes MACRO-80. Also linkable to FORTRAN-80 or 
COBOL-80 code modules .$350/$25 


ГІ FORTRAN-80 — ANSI 66 (except for COMPLEX) plus 
(D many extensions. Includes relocatable object com- 
@ piler, linking loader, library with Lied aah Also in- 

~ cludes MACRO-80 (see below) . $425/$25 


ГІ COBOL-80 — Level 1 ANSI 74 standard сово. plus 

most of Level 2. Full sequential, relative, and in- 
@ dexed file support with variable file names, STRING, 
UNSTRING, COMPUTE, VARYING/UNTIL, EXTEND, 
CALL, COPY, SEARCH, 3-dimensional arrays, com- 
pound and abbreviated conditions, nested IF. Power- 
ful interactive screen-handling extensions. Includes 
compatible assembler, linking loader, and relocat- 
able library manager as Seed under MACRO-80 
"reas hiscere ое нота ежа нео вне в $700/$25 


[3 MACRO-80 — 8080/280 Macro Assembler. Intel and 
Zilog mnemonics supported. Relocatable linkable 
@ Output. Loader, Library Manager and Cross Refer- 
ence List utilities included ...$149/$15 


f? XMACRO-86 — 8086 cross assembler. All Macro and 
© utility features of MACRO-80 package. Mnemonics 
slightly modified from Intel А5М86. берни data 
sheet available ........................ 5275/525 


(3 EDIT-80 — Very fast random access text editor for text 
(D with or without line numbers. Global and intra-line 
commands supported. File compare utility included. 


О PASCAL/M* — Compiles enhanced Standard Pascal 
to compressed efficient Pcode. Totally CP/M com- 


ay) patible Random access files. Both 16 and 32-bit Inte- 
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gers. Runtime error recovery. Convenient STRINGS. 
Л OTHERWISE clause on CASE. Comprehensive man- 
ual (90 pp, indexed). SEGMENT provides overlay 
structure. INPORT, OUTPORT and untyped files for 
arbitrary 1/О. Requires 56K CP/M $175/$20 


ГІ PASCAL/Z — 280 native code PASCAL compiler. Pro- 
duces optimized, ВОМаЫе re-entrant code. All inter- 
facing to CP/M is through the support library. The 
package includes compiler, relocating assembler and 
linker, and source for all library modules. Variant 
records, strings and direct I/O are supported. Re- 
quires 56K CP/M and Z80 CPU . $395/$25 


Г) PASCAL/MT — Subset of standard PASCAL. Gener- 
@ ates ROMable 8080 machine code. Symbolic debug- 
ger included. Supports interrupt procedures, CP/M 
file ИО and assembly language interface. Real vari- 
ables can be BCD, software floating point, or AMD 
9511 hardware floating point. Includes strings enu- 
merations and record data types. Manual explains 
BASIC to PASCAL conversion. Requires 32K. 
..$250/$30 


n ALGOL-60— Powertul block- structured language com- 
piler featuring economical run-time dynamic alloca- 
tion ой memory. Very compact (24K total RAM) sys- 
tem implementing almost all Algol 60 report features 
plus many powerful extensions including string han- 
dling direct disk address ШО etc. _ Requires 280 
CPU -....$199/$20 


[] CBASIC-2 Disk Extended BASIC - | Non-interactive 
® BASIC with pseudo-code compiler and run-time in- 
terpreter. Supports full file control, chaining. integer 
and extended precision variables, etc. . $120/$15 


MICRO FOCUS 


О STANDARD CIS COBOL — ANSI '74 COBOL stand- 
(D ard compiler fully validated by U.S. Navy lests to 
@ ANSI level 1. Supports many features to level 2 in- 
cluding dynamic loading o! COBOL modules and a 
full ISAM file facility. Also, program segmentation, 
interactive debug and powerful interactive extensions 
to support protected and unprotected CRT screen 
formatting from шы programs used with any 
dumb terminal E В .$850/$50 


[3 FORMS 2 — CRT screen editor. Output is COBOL data 
(D descriptions for copying into CIS COBOL programs 
Automatically creates a query and update program of 
indexed files using CRT protected and unprotected 
screen formats. No programming experience needed. 
UAM, program dict compiled by ЭТАНОАРО cis 
сово ..$200/$20 


о еее; f 

EIDOS SYSTEMS, 

Г] KISS — Keyed Index Sequential Search, Offers com- 

(© plete Multi-Keyed Index Sequential and Direct Ac- 
cess file management. Includes built-in utility func- 
tions for 16 or 32 bit hmetic, string/integer conver- 
sion and string compare. Delivered as a relocatable 
linkable module in Microsoft format for use with 
FORTRAN-80 ог COBOL-80, etc. ..$335/$23 


New Phora) 


Prices rotlect distribution on 8^ single density dh 
M a format is requested which requi! idition 

ci of $8. per additional diskette wi 
A surcharge ol $25 will be added for software on CSSN 
format i ОС 300XL cartridges. Media charge for 5440 disk 
із $100. 


All Lifeboat programs require CP/M, unless otherwise stated. 


Sofware 
with 
Manusi, 


Manusi 
Alone 
C3 KBASIC -- Microsoft Disk Extended BASIC version 
© 4.51 integrated by implementation of nine additional 
commands in language. Package includes KISS.REL 
as described above, and a sample mail list program 
85/545 
To licensed users ‘of Microsoft ВАЅІС-80 (BASIC) 
..$435/$45 


[2 XYBASIC Interactive Process Contro! BASIC — Full 


disk BASIC features plus unique commands to han- 
die bytes, rotate and shift, and to test and set bits. 
Available in integer and extended versions 
Interger ROMable, ROM Squared and CP/M $295/$25 
Extended ROMable, ROM Squared and CP/M $395/$25 
Extended disk XYBASIC for CP/M ... $495/$25 
mm um uum пиш шш с GER гыш GEB шла GU шаш m шю 
Г) RECLAIM — A utility to validate media under CP/M. 
Program tests a diskette or hard disk surface for 
А errors, reserving the imperfections in invisible files, 
N Тапа permitting continued usage of the remainder. 
Ж Essential for апу hard disk. Requires CP/M version 2. 
$80/$5 
ГІ BASIC UTILITY DISK — Consists of: (1) CRUNCH-14 
® — Compacting utility to reduce the size and increase 
the speed of programs in Microsoft BASIC 4.51, 
BASIC-80 and TRS-80 BASIC. (2) DPFUN — Double 
precision subroutines for computing nineteen trans- 
cendental functions including square root, natural 
log. log base 10, sine. arc sine, hyperbolic sine, 
hyperbolic arc sine, etc. Furnished in source on 
diskette and documentation .. ..$50/$35 
О STRING/80 — Character string handling plus routines 
for direct CP/M BDOS calls from FORTRAN and other 
compatible Microsoft languages. The utility library 
contains routines that enable programs to chain to 
a COM file, retrieve command line parameters, and 
search file directories with full wild card facilities 
Supplied as linkable modules in Lohan format. 
m ..$95/$20 
STRING/80 source code available UNE $295/NA 
THE STRING BIT — FORTRAN character string han- 
dling. Routines to find, fill, pack, move, separate, 
concatenate and compare character strings. This 
package completely eiuninates the problems asso- 
ciated with character string handling in FORTRAN. 


(mia) 


Supplied with source ............. .$65/$15 
ГІ VSORT — Versalile sort/merge system for fixed length 
& recórds with fixed or variable length fields. VSORT 


can be used as a stand-alone package or loaded and 
called as a subroutine from CBASIC-2. When used as 
а subroutine, VSORT maximizes the use of buffer 
space by saving the TPA on disk and restoring it on 
completion of sorting. Records may be up to 255 
bytes long with a maximum of 5 fields. Upper/lower 
case translation and numeric fields iced 

++. $175/$20 


[M ©еМ/374Х — Has full range of АЙ to create ог 
re-name an IBM 3741 volume, display directory infor- 
mation and edit the data set contents. Provides full 
file transfer facilities between 3741 volume data sets 
and CP/M files . Г .$195/$10 


M BSTAM — Utility to link one оор to another also 
@ equipped with BSTAM. Allows file transfers at full 
data speed (no conversion to hex), with CRC block 
control check for very reliable error detection and 
automatic retry. We use it! It's great! Full wildcard 
expansion to send ж.СОМ. etc. 9600 baud with wire. 
300 baud with phone connection. Both ends need 
one. Standard and & versions can talk to one аланы; 
. .$150/ 


О WHATSIT?* interactive data-base system using as- 
sociative tags to retrieve information by subject 
Hashing and random access used for fast response. 
Requires CBASIC-2 .... $175/$25 


M SELECTOR Ш-С2 — Data Base: Processor to create 
® and maintain multi Key data bases. Prints formatted 
t sorted reports with numerical summaries or mailing 
labels. Comes with sample applications, including 
Sales Activity, Inventory, Payables, Receivables, 
Check Register, and Client/Patient Appointments, etc. 
Requires CBASIC-2. Supplied in source ...$295/$20 


1 GLECTOR — General Ledger option 10 SELECTOR 
Ш-С2. Interactive system provides for customized 
COA. Unique chart of transaction types insure proper 
double entry bookkeeping. Generates balance sheets, 
P&L statements and journals. Two year record allows 
for statement of changes in financial position report. 
Supplied in source. Requires SELECTOR 111-С2, 
CBASIC-2 and 56K system .... ...$350/$25 


M CBS — Configurable Business System is a compre- 
t hensive set of programs for defining custom data files 
and application systems without using a program- 
ming language such as BASIC, FORTRAN, etc. Mul- 
tiple key fields for each data file are supported. Set-up 
program customizes system to user's CRT and printer. 
Provides fast and easy interactive data entry and 
retrieval with transaction processing. Report genera- 
tor program does complex calculations with stored 
and derived dala, record selection with multiple cri- 
teria, and custom formats. Sample inventory and mail- 
ing list systems included. No support порве ге- 
quired .$295/$40 


Lifeboat Associates, 165! Third Avenue, N.Y., N.Y. 10028 (212) 860-0300 Telex: 220501 


MICROPRO 


Г) SUPER-SORT | — Sort, merge, extract utility as abso- 
© lute executable program or linkable module in Micro- 
solt format. Sorts fixed or variable records with data 
in binary, BCD, Packed Decimal, ЕВСОІС, ASCII, 
floating & fixed point, exponential, field justified, etc. 
Even variable number of fields per record! .$225/$25 


71 SUPER-SORT И — Above ay available as absolute рго- 
(D gram aniy AE .$175/$25 


SUPER- SUNT MI — Аз 11 without SELECT/EXCLUDE 
125/$25 


|_| WORD-STAR — Menu driven visual word ecce 
© system for use with standard terminals. Text format- 
ling performed on screen. Facilities for text paginate, 
page number, justify. center and underscore, User 
can print one document while simultaneously editing 
a second. Edit facilities include global search and 
replace. Read/Write to other text files, block move, 
etc. Requires CRT terminal with addressable cursor 
positioning $445/$40 
[1 WORD-STAR Customization Notes — For sophisticated 
users who do not have one of the many standard 
terminal or printer configurations in the distribution 
version of WORD-STAR ................. .NA/$95 


7? WORD-MASTER Text Editor — м one mode has super 
(D set of CP/M's ED commands including global search- 
ing and replacing, forwards and backwards in file in 
video mode, provides full screen editor for users with 
serial addressable-cursor terminal ..$145/925 


C] TEXTWRITER ІШ — Text formatter to justify and pagi- 
nate letters and other documents. Special features 
include insertion of text during execution from other 
disk files or console, permitting recipe documents 
to be created from linked fragments on other ‘iles. 
Has facilities for sorted index, table of contents and 
footnote insertions. Idea! for contracts, manuals, etc. 
Now сотре with EO i Pencil* Г prepared files. 


Hons- apg Дака 
BASIE ган 


PEACHTREE SOFTWARE 


GENERAL LEDGER — Records details of all financial 
transactions. Generates a balance sheet and an in- 
come statement. Flexible and adaptable design for 
both small businesses and firms performing client 
writeup services. Produces reports as follows: Trial 
Balance, Transaction Registers, Balance Sheet, Prior 
Year Comparative Balance Sheet, Income Statement, 
Prior Year Comparative Income Statement and De- 
partment Income Statements. Interactive with other 
PEACHTREE accounting packages. Supplied in 
source code for Microsoft BASIC .$990/$30 


M ACCOUNTS PAYABLE — Tracks current and aged 

payables and incorporates a check writing feature. 

t Maintains a complete vendor file with information on 
purchase orders and discount terms as well as active 
account status. Produces reports as follows: Open 
Voucher Report, Accounts Payable Aging Report and 
Cash Roquirements. Provides input to PEACHTREE 
General Ledger. берне in source code for Micro- 
soft BASIC А 


[3 ACCOUNTS RECEIVABLE — Generates invoice regis- 
© ter and complete monthly statements. Tracks current 
f and aged receivables. Maintains customer file includ- 
ing credit information and account status, The cur- 
rent status of any customer account is instantly avail- 
able. Produces reports as follows: Aged Accounts 
Receivable, Invoice Register, Payment and Adjust- 
ment Register and Customer Account Status Report 
Provides input to PEACHTREE General Ledger. Sup- 
plied in source code for Microsoft BASIC . .$990/$30 


П PAYROLL — Prepares payroll for hourly, salaried and 
© commissioned employees. Generates monthly, а! 
1 terly and annual returns. Prepares employee W-2's. 
Includes tables for federal withholding and FICA as 
well as withholding for all 50 states plus up to 20 
Cities from pre-computed or user generated tables. 
Will print checks, Payroll Register, Monthly Summary 
and Unemployment Tax Report. Provides input to 
PEACHTREE General Ledger. Supplied in CS 
code for Microsoft BASIC ..$990/$30 


INVENTORY — Maintains detailed information on 
each inventory item including part number, de: 
tion, unit of measure, vendor and reorder да! 
activity and complete information on current item 
costs, pricing and sales. Produces reports as follows: 
Physical Inventory Worksheet, Inventory Price List, 
Departmental Summary Report, Inventory Status Re- 
The Reorder Report and the Period-to-Date and 
r-to-Date reports. Supplied in source code for 
..$1190/$30 
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™Tne Software Supermarket is a trademark of Lifeboat Associates 
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GRAHAM-DORIAN SOFTWARE SYSTEMS 


ГІ GENERAL LEDGER — An on-line system; no batch- 
© ing is required. Entries to other GRAHAM-DORIAN 
@ accounting packages are automatically posted. User 
+ establishes customized C.O.A. Provides transaction 
register, record of journal entries, trial balances and 
monthly closings. Keeps 14 month history and pro- 
vides comparison of current year with previous year 
Requires CBASIC-2. Supplied in source ...$995/$35 


M ACCOUNTS PAYABLE — Maintains vendor list and 
© check register. Performs cash flow analysis. Flexible 
М — writes checks to specific vendor for certain in- 
1 voices or can make partial payments. Automatically 
posts to GRAHAM-DORIAN General Ledger or runs as 
stand alone system. Requires CBASIC-2. Supplied in 
source ..$995/$35 


[] ACCOUNTS RECEIVABLE — Creates trial balance re- 
© ports. prepares statements, ages accounts and гес- 
® ords invoices. Provides complete information describ- 
f ing customer payment aclivity. Receipts can be 
posted to different ledger accounts. Entries auto- 
matically update GRAHAM-DORIAN General Ledger 
or runs as stand alone system. Requires CBASIC-2 
Supplied in source » .$995/$35 


[1 INVENTORY SYSTEM — Captures stock levels, costs, 
© sources, sales, ages, turnover, markup, etc. Trans- 
% action information may be entered for reporting by 
1 salesperson type of sale, date of sale, etc. Reports 
available both for accounting and decision making 
Requires CBASIC-2. Supplied in source ...$590/$35 


7 JOB COSTING — Designed for general contractors 
о To be used interactively with other GRAHAM-DORIAN 
@ accounting packages for tracking and analysing ex- 
+ penses User establishes customized cost categories 
and job phases. Permits comparison of actual versus 
estimated costs. Automatically updates GRAHAM- 
DORIAN General Ledger or runs as stand alone sys- 
tem. Requires CBASIC-2. Supplied in source $995/$35 


ГІ APARTMENT MANAGEMENT SYSTEM — Financial 
© management system for receipts and security de- 
® posits of apartment projects. Captures data on va 
f cancies, revenues, etc. for annual trend analysis. 
Daily report shows late rents, vacancy notices, уа- 
cancies, income lost through vacancies, etc. Requires 
CBASIC-2. Supplied in source $590/$35 


77 CASH REGISTER — Maintains files on daily sales. 
© Files data by salesperson and item. Tracks sales, 
М over-rings, refunds. payouts and total net deposits. 
1 Requires CBASIC-2. Supplied in source $590/$35 


Г! POSTMASTER — A comprehensive package for mail 
@ list maintenance that is completely menu driven. 


Features include keyed record extraction and label 
production. A form letter program is included which 
provides neat letters on single sheet or continu- 
P OUS forms. Compatible with NAD files. Requires 


CBASIC-2 .$150/$15 


STRUCTURED SYSTEMS GROUP 


(1 GENERAL LEDGER — Interactive and flexible system 
1 providing proof and report outputs. Customization of 
COA created interactively. Multiple branch account- 
ing centers. Extensive checking performed at data 
entry for proof, COA correctness, etc. Journal entries 
may be batched prior to posting. Closing procedure 
automatically backs up inpul files. Now includes 
Statement of changes in Financial Position. Requires 
CBASIC-2 $1250/$25 


Г) ACCOUNTS RECEIVABLE — Open item system with 
* output for inlernal aged reports and customer-ori- 
ented statement and billing purposes. On-Line En- 
quiry permits information for Customer Service and 
'edit departments. Interface to General Ledger pro- 
vided if both а used. „Деш, CBASIC-2. 
..$1250/$25 


n ) ACCOUNTS PAYABLE — - Provides aged statements 
t of accounts by vendor with check writing for selected 
invoices. Can be used alone or with General Ledger 
and/or with NAD. Requires CBASIC-2 $1250/$25 


Г] PAYROLL — Flexible payroll system handles weekly, 
t bi-weekly, semi-monthly and monthly payroll periods. 
Tips, bonuses, re-imbursements, advances, sick рау. 
vacation pay. and compensation time are all part of 
the payroll records. Prints government required peri- 
odic reports and will post to multiple SSG General 
Ledger accounts. Regum pun and 54K of 
memory е $1250/$25 


M INVENTORY CONTROL SYSTEM — Performs control 
1 functions of adding and depleting stock items, add- 
ing new items and deleting old items. Tracks quantity 
of items on hand, on order and back-ordered. Op- 
lional hard copy audit trail is available. Reporls in- 
clude Master Мет List, Stock Activity, Stock Valua- 
lion and Re-order List. Requires CBASIC-2 $1250/$25 


[ ANALYST — Customized data entry and reporting sys- 

1 tem. User specifies up to 75 data items per record 
Interactive data entry, retrieval, and update facility 
makes information management easy. Sophisticated 
report generator provides customized reports using 
selected records with multiple level break-points for 
summarization. Requires a disk sort utility such as 
QSORT, ed -SORT or VSORT and CBASIC-2. 

.2..... $250/$15 


п LETTERIGHT — Hort 10 create, edit and type let- 
ters or other documents. Has facilities to enter, dis- 
play, delete and move text, with good video screen 
presentation. Designed to integrate with NAD for 
form letter mailings. Requires CBASIC-2 ..$200/$25 


П МАО Name and Address selection system — Interac- 
live mail list creation and maintenance program with 
output as full reports with reference data or restricted 
information for mail labels. Transfer system for ex- 
traction and transfer of selected records to create 
new files. Requires CBASIC-2 $100/$20 


O QSORT — Fast sort/merge program for files with fixed 
record length. variable field length information. Up to 
five ascending or descending кеу Full back-up of 
input files created ..$100/$20 
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NEWSLETTER 
FROM LIFEBOAT 


* Latest Version 


Numbers List 
of Software 
E | 
* Update on ІН 
CP/M Users Group | | 
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* The Great ZOSO Speaks ! 
Out from Behind the Scenes 


$18 ppd. for 12 issues (U.S., Canada, 
Mexico) $40. elsewhere 

Send check to “Lifelines,” 1651 3rd Avenue, 
New York, N.Y. 10028 or use your VISA or 
Mastercharge—call (212) 722-1700 


Copyright 9 1980 Lifeboat Associates. No 
portíon of this advertisement may be repro- 
duced without prior permission. 


S-100 MICROSYSTEMS 
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HEAD CLEANING DISKETTE —Cleans the drive Read’ 
Write head in 30 seconds Diskette absorbs loose 
oxide particles. fingerprints. and other foreign parti- 
cles that might hinder the performance of the drive 
head. Lasts at least 3 months with daily use. Specify 


5" or 8" 
Single sided $20 each/$55 for 3 
Double sided $25 each/$65 for 3 


FLIPPY DISK KIT — Template and instructions to 
modily single sided 5%” diskettes for use of second 
side in single sided drives $12.50 


[3 FLOPPY SAVER — Protection for center holes of 5" 
and 8" floppy disks. Only 1 needed per diskette. Kit 
contains centering post, pressure tool and tough 
7 ш ту!аг мс inga for 25 diskettes. 


Klisa .... $14.95 
5". Rings only ТР T 
Кое ..$16.95 
8", Rings only . $8.95 


Т PASCAL USER MANUAL AND > REPORT — ву Jonson 
and Wirth. The standard textbook on the language 
Recommended for use by Pascal/Z, Pascal/M and 
Pascal/MT users . . 2o $10 


Г THE C PROGRAMMING LANGUAGE — By Kernighan 
and Ritchie. The standard textbook on the language. 
Recommended for use by BDS С. tiny € C, and White: 
smiths C users m $12 


STRUCTURED MICROPROCESSOR PROGRAMMING 
— By the authors о! SMAL/80. Covers structured pro- 
gramming. the 8080/8085 instruction set and the 
SMAL/80 language ......... 
` ACCOUNTS PAYABLE & ACCOUNTS RECEIVABLE— 
CBASIC — By Osborne/McGraw-Hill . $20 
1 GENERAL LEDGER—CBASIC — By Dsborne/MeGrew, 
Hill . . . -$20 
N LIFEBOAT DISK ‘COPYING SERVICE - Transfer data 
or programs from one iis formel 10 another at г 
moderate cost ..from $25 


ххх» 


*CP/M and МР/М are trademarks о! Digital Research. 
280 is a trademark of Zilog, Inc. 

UNIX is a trademark of Bell Laboratories. 

WHATSIT? is a trademark of Computer Headware. 
Electric Pencil is a trademark of Michael Shrayer 
Software. 

TRS-80 is a trademark of Tandy Corp. 

Pascal/M is a trademark о! Sorcim. 
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tRecommended system configuration consists of 48K 
СР/М, 2 full size disk drives, 24 x 80 CRT and 132 
column printer. 


i 


(b Modified version available for use with CP/M as im- 
plemented on Heath and TRS-80 Model | computers. 


2, 


(DUser license agreement for this product must be 
signed and returned to Lifeboat Associates before 
shipment may be made. 


(D G)This product Includes/eXcludes the language manual 
recommended in Condiments. 


Ordering Information 


MEDIA FORMAT ORDERING CODES 
When ordering, please specify format code. 


Computer system Format Code Computer system Format Code 
Altair 8800 Disk See MITS tend RAIR Double Density RE 
Altos Research Machines 8” AT 
Apple + Microsoft бойСаға "Ao Research Machines 5%” ян 
BASF System 7100 RD REX р. оз 
k Single Density оз SD Systems 8” AT 
Micropolis Mod 11 о? 50 Systems 5%” яз 
E Sorcerer See Exidy Sorcerer 
Q2 Spacebyte AT 
80 à рт": SuperBrain See Intertec SuperBrain 
Cromemco System 3 ........ SAT Tarbell . xe а nu 
Ctomemco 220 R6 TEI 5%” 27789 
CSSN BACKUP (tape) n TE! в" Иені ar 
Delta Қ УРЫ Thinkerloys ' See Morrow Discus 
Digi-Log Microterm Il... RD TRS-80 Mode! | 5%” R2 
Digita! Microsystems жі” TRS-80 Моде! | + FEC RN 
Discus . See Morrow Discus. TRS-B0 Mode! | + Micromation A4* 
Durango F-8S RL TRS-80 Моде! | + Omikron $a” Ам 
Dynabyle ОВ8/2 RI TRS-80 Model | + Omikron 8” А1 
Dynabyte 088/4 А AT TAS-80 Model | + Shutfleboard 8” ^ 
Exidy Sorcerer + Lifeboat CP/M ог TRS-80 Model 11 
Exidy Sorcerer + Exidy CP/M Q4 VDP-40/42/44/80 See rm 
Heath НВ + H17/H27 mE Vector MZ : 
Heath 89 + Lifeboat СР/М ._.,. ..Р4 Versatile B See COS eile 
Heath 89 + Magnolia CP/M ...... P7 Vis 80 5%” Single Density 
Helios II .....See Processor Technology V200 5%” Double Density .Р6 
Horizon .... See North Star ith 289 + Lifeboat CP/M Ра 
ICOM 2411 Micro Fioppy R3 Zenith 289 + Magnolia CP/M РТ 
ICOM 3712 . s. At 
ісом 3812 B so AT 


*Single-Side Single-Density disks are 
supplied tor users of al! Double-Density 
Double-Side 8" soft sector format 
ms 


ICOM 4511 5440 Cartridge CP/M 14 01 
ICOM 4511 $440 Cartridge CP/M 2 202 
1М5 5000 RA 


мелі VOP-40- **IMSAI formats are single density with 
IMSAI VDP-42 . directory offset of zero. 

IMSA! VOP-44 

(meal VOD The lisi of avallable formats is subject 


to change without notice. In case of un- 
ту. сай to confirm Ihe format code 
for алу particular equipment. 


Meca 5%". 
Micromation (Except TRS- 80 below) А!“ 
Micropolis Mod | Qt 
Micropolis Mod И 02 
MITS 3200/3202 в 
Morrow Discus. B at’ 
Mostek d A 
MSD 5и”... Tre Rs 1 
North Star Single Oensily Pt 4 
North Star Doubie/Quad Р? 
Single Density оз 
Micropolis Mod. II о? 
Scientific C3 АЗ 
с РСС 2000 м" 

'Ocessor Technology Helios " 82 
ВАТА Single Density RO 


Lifeboat THE — 


эш. 
МАВКЕТ 


Prices Ғ.О.В. New York. 
Shipping, handling and C.O.D. 
charges extra. 

Manual cost applicable against 
price of subsequent software 
purchase. 

The sale o! each proprietary 
software package conveys a 
license for use on one 

system only. 
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ed into a professional-level computer 
system. It is, therefore, seeing increas- 
ed use in the industrial, commercial, 
scientific and small business areas. 
Further, because of its low cost and 
the availability of much S-100 equip- 
ment in kit form, it is very popular 
with computer hobbyists. 

The 5-100 computer picture will be 
one of steady, increased growth, albeit 
not the spectacular growth of 1975 
through 1977, when we saw sales 
double each year. $-100 will compete 
more and more intensely with mini- 
computer systems in the markets that, 
until now, were exclusively the do- 
main of the minicomputer. 

Because of their low cost/high 
power ratio, 5-100 computer systems 
will continue to be popular in the hob- 
by and personal computer area. 
However, the consumer products 
manufacturers are moving into the 
personal computer market with new, 
very low-cost systems that, to a large 
extent, (will displace S-100 from these 
markets. 

$-100 systems will increase and im- 
prove in power, flexibility, speed, and 
reliability. This trend has already 
begun, as is evidenced by the new 
16-bit CPU cards апа co-processor 
cards now being introduced. Today, 
typical memory size for an S-100 
system is in the 48K-64K range. The 
likelihood is that next year, it will be in 
the 64K-128K range, and in 1983, it 
will typically be 128-256K. 

Further, S-100 speed can be ex- 
pected to increase dramatically. To- 
day, most 5-100 users employ 2-4МН2 
processor clocking. By 1981, this 
should typically be 6 MHz, and as high 
as 12MHz by 1983. Coupled with the 
more powerful 16-bit microproces- 
sors, this means that S-100 microcom- 
puters will take over the traditional 
minicomputer market by the mid 
1980's. 8 


Attention S-100 
Board Suppliers 


We are currently attempting to compile a 
listing of all S-100 board and mainframe 
suppliers and their products. If you are a 
manufacturer of S-100 products please send 
us a complete set of specification sheets on 
your products. We hope to publish this listing 
in the NOV/DEC issue of S-100 MICRO- 
SYSTEMS. 


LETTERS 
TO THE EDITOR 


Dear Editor: 

After reading the first two 
issues of "S-100 MICROSYS- 
TEMS” | was convinced that | 
had to subscribe. Here in Europe 
it is very difficult to get any 
information on computers ex- 
cept by reading American maga- 
zines. Even worse is the situa- 
tion if you want to talk to 
someone having another S-100 
System. My nearest “neighbor” 
lives 300 miles away. 

For those people running 
CP/M it must be a challenge to 
write some interesting articles 
and submit them on disk! You 
ought to list those formats you 
will be able to read! 

Will there be “classified” ad’s? 
Hoping to find other people in 
Europe to talk to, and with best 
wishes for the success of this 
publication. 

Here, in the north of Germany, 
we have a small club of thirty 
people meeting once a month for 
a sort of a “Computer Club.” 
There are 3 who use CP/M (one 
OSI, one Cromemco, and me) 
and 2 who use an S-100 System. 
| know of two professional 
installations of a Cromemco and 
one other CP/M installation with 
an AMD-Distributor. Besides 
that, | know of three other Ham’s 
in south-Germany using CP/M 
either on an ALTAIR or an 
ALTOS. 

Holger Petersen 
West Germany 


We will accept “classifieds” of 
a non-commercial nature free of 
charge. Authors can submit 
articles on either 8” CP/M disk 
or 5-1/4” North Star CP/M. Text 
should be entered using either 
“Wordstar” or “Electric Pencil.” 
We һауе an author's guide 
available. —Ed. 
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Dear Editor: 

І completely agree with you 
that the S-100 bus is the best 
supported computer bus around. 
In the first issue of your fine 
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magazine, you stated that there 
were seven different 8-bit pro- 
cessors already interfaced to the 
S-100 bus (8080, 8085, 8088, 280 
6502, 6800, and 6809). І found 
this comment amusing because 
it is such an understatement. 
One interesting S-100 micro- 
processor you did not mention is 
the Signetics 2650. Several years 
ago, Victoria Micro Digital 
(whose address is 401 Dundee 
Street, Victoria, Texas 77901) 
implemented the Signetics 2650 
onto the S-100 bus in a very 
interesting and unusual way. 
Their product is called the 
Slavemaster 2650 Multiproces- 
sor, which consists of two 
separate S-100 cards. Each card 
is identical and each contains a 
2650 mpu, Kansas City cassette 
interface, serial I/O, 8 vectored 
interrupts, a real-time clock 
interrupt, keyboard interrupt, AC 
power-fail interrupt, and four 
2708 sockets. The two cards 
connect together via a 16-pin 
dip-plug ribbon cable. Either 
card can be jumpered to be the 
slave or the master. In multipro- 
cessor mode, both processors 
run at full speed. This is 
accomplished by synchronizing 
circuitry that causes the two 
processors to interleave S-100 
execute and fetch cycles. There 
are two memory modes. One is 
the common memory mode, 
where both processors can exe- 
cute anywhere in memory. The 
other is split-memory mode, 
where each processor is restrict- 
ed to its own 32K block. In 
split-memory mode, there is a 
feature called the mailbox, 
which allows each processor to 
access a 1K block of the other 
processor's memory. | found 
these boards to be a fascinating 
addition to my S-100 collection. 
However, many people may not 
be interested in anything as 
exotic as multiprocessing and 
may find more useful the fact 
that with just one of these cards 
the user has a powerful stand- 
alone 2650 S-100 bus microcom- 
puter. The boards are of the high 
quality l've come to expect (and 
demand) of $S-100 products. 


They're solder-masked, silk- 
screened, and has a gold-plated 
edge connector. Schematics are 
included and the write-up is 
pretty good. The blank boards 
(which is the way | normally 
prefer to buy S-100 boards) cost 
me $49 a piece. The price of a 
1-board kit is $139 and is $189 
assembled. | should add that 
because this product was de- 
signed a few years ago, it 
probably won't work with dyna- 
mic memory. 


Another microprocessor you 
did not mention is the Motorola 
6802. MicroDaSys (pronounced 
micro-daisies, as in the flower) 
successfully interfaced this pro- 
cessor to the S-100 bus two 
years ago. Their address is 357 
South Lorraine Blvd, Los 
Angeles, СА 90020. І paid $50 for 
a blank board. The board is, of 
course, silk-screened, solder- 
masked, and gold-plated. How- 
ever, the documentation is only 
fair. This board has a number of 
features. It has five 2708/2716 
sockets, a serial interface, two 
bi-directional parallel ports. 1K 
bytes of static RAM, and a 
Kansas City cassette interface. 
The kit price is $200 and is $258 
assembled. For $40 more, this 
board is up-gradable to Moto- 
rola’s new 6809 processor. Be- 
cause this board was designed 
Before the establishment of the 
IEEE S-100 standards, it proba- 
bly will not work with dynamic 
memory. However, both the 
Victoria Micro Digital 2650 
Slavemaster and MicroDaSys 
6802/6809 will work fine with 
most of the static memory 
boards currently on the market. 

Kenneth Young 
Los Angeles, CA 


apap ra atn 


Dear Editor: 

l'd like to invite interested 
readers to attend upcoming 
meetings of the GREATER NY 
SOL USER'S GROUP. We meet 
at 7:30 on the second Monday of 
the month at the Westchester 
Federal Savings Bank, 67 Pur- 
chase Street, Rye, NY. 


In addition to a SOL, most of 
our members have North Star 
minifloppy drives, some have 
additional 8" drives. Our interest 
ranges from keeping the SOL 
alive, to software and peripheral 
equipment. Applications range 
from business related programs, 
to word processing and of 
course— games. 

We are an active club. If you 
know of anyone who would like 
to give a talk to the group we 
would be happy to discuss the 
details. 

Best wishes on the success of 
$-100 MICROSYSTEMS. 

Andre McHose 
Ridgefield, CT 


«ООО, 


Dear Editor: 


lam puzzled by the video display 
boards available for the S-100 bus. 
One can buy off the shelf any num- 
ber of fully assembled ready to run 
boards that implement all the func- 
tions of a CRT terminal--except for 
the keyboard. | am unable to locate 
anywhere a completely packaged, 
ready to use by the consumer, 
keyboard complete with cabling 


necessary to work with a video 
board. What keyboards there are 
seem to be custom assemblies by 
local computer stores acting as 
OEM's. Thus while the video board 
portion of a terminal is backed by 
factory service and warranty, such 
a board does not supply a terminal 
with the same convenience. | be- 
lieve this explains a great deal of 
the attractiveness of TRS-80, APPLE 
and similar systems. The practice 
of operating S-100 systems through 
standard serial data terminals is 
not just more expensive than using 
an integrated unit, it is logically 
unnecessary, a kind of kluge; the 
production of so many different 
video boards atests to that. The 
great popularity of the now discon- 
tinued SOL computer further illus- 
trates this. But what's the point of 
all the video boards if no keyboards 
are supplied with them? 


George Lyons 
Jersey City, NJ 
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NEW! ТРМ“ for TRS-80 Model 11 
NEW! System/6 Package 


Computer Design Labs 


280 Disk Software 


We have acquired the rights to all TDL software (& hardware). TDL software has long had the reputation of being the best in the 
industry. Computer Design Labs will continue to maintain, evolve and add to this superior line of quality software. 


— Carl Galletti and Roger Amidon, owners. 


Software with Manual/Manual Alone 


All ofthe software below is available on any of the 
following media for operation with a Z80 CPU using 
the CP/M* or similar type disk operating system 
(such as our own TPM*). 


for TRS-80* CP/M (Model I or 11) 

for 8" CP/M (soft sectored single density) 
for 574” CP/M (soft sectored single density) 
for 5'4" North Star CP/M (single density) 
for 5/4” North Star CP/M (double density) 


BASIC 1 

A powerful and fast 280 Basic interpreter with EDIT, 
RENUMBER, TRACE, PRINT USING, assembly language 
subroutine CALL, LOADGO for "chaining", COPY to 
move text, EXCHANGE, KILL, LINE INPUT, error inter- 
cept, sequential file handling in both ASCII and binary 
formats, and much, much more. It runs іп a little over 12 
K. An excellent choice for games since the precision 
was limited to 7 digits in order to make it one of the 
fastest around. $49.95/$15. 


BASIC 1 
Basic | but with 12 digit precision to make its power 
available to the business world with only a slight sacrifice 
in speed. Still runs faster than most other Basics (even 
those with much less precision). $99.95/$15. 


BUSINESS BASIC 

The most powerful Basic for business applications. It 
adds to Basic Il with random or sequential disk files in 
either fixed or variable record lengths, simultaneous 
access to multiple disk files, PRIVACY command to 
prohibit user access to source code, global editing, 
added math functions, and disk file maintenance capa- 
biiity without leaving Basic (list, rename, or delete). 
$179.95/$25. 


ZEDIT 
A character oriented text editor with 26 commands 
and “macro” capability for stringing multiple commands 
together. Included are a complete array of character 
move, add, delete, and display function. $49.95./$15. 


2 ZTEL 

Z80 Text Editing Language - Not just a text editor. 
Actually a language which allows you to edit text and 
also write, save, and recall programs which manipulate 
text. Commands include conditional branching, subrou- 
tine calls, iteration, block move, expression evaluation, 
and much more. Contains 36 value registers and 10 text 
registers. Be creative! Manipulate text with commands 
you write using Ztel. $79.95/$25. 


TOP 
А 280 Text Output Processor which will do text 
formatting for manuals, documents, and other word 
processing jobs. Works with any text editor. Does 
justification, page numbering and headings, spacing, 
centering, and much more! $79.95/$25. 


MACRO I 

A macro assembler which will generate relocateable 
or absolute code for the 8080 or Z80 using standard 
Intel mnemonics plus TDL/Z80 extensions. Functions 
include 14 conditionals, 16 listing controls, 54 pseudo- 
ops, 11 arithmetic/logical operations, local and global 
symbols, chaining files, linking capability with optional 
linker, and recursive/reiterative macros. This assembler 
is so powerful you'll think it is doing all the work for you. It 
actually makes assembly language programming much 
less of an effort and more creative. $79.95/$20. 


MACRO II 
Expands upon Macro l's linking capability (which is 
useful but somewhat limited) thereby being able to take 
full advantage of the optional Linker. Also a time and 
date function has been added and the listing capability 
improved. $99.95/$25. 


LINKER 

How many times have you written the same subroutine 
in each new program? Top notch professional pro- 
grammers compile a library of these subroutines and 
use a Linker to tie them together at assembly time. 
Development time is thus drastically reduced and 
becomes comparable to writing in a high level language 
but with all the speed of assembly language. So, get the 
new CDL Linker and start writing programs in a fraction 
of the time it took before. Linker is compatible with 
Масго | & || as ме! аз TDL/Xitan assemblers version 2.0 
or later. $79.95/$20. 
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DEBUG I 

Many programmers give up on writing in assembly 
language even though they know their programs would 
be faster and more powerful. To them assembly language 
seems difficult to understand and follow, as well as 
being a nightmare to debug. Well, not with proper tools 
like Debug I. With Debug I you can easily follow the flow 
of any Z80 or 8080 program. Trace the program one 
step at a time or 10 steps or whatever you like. At each 
step you will be able to see the instruction executed and 
what it did. If desired, modifications can then be made 
before continuing. It's all under your control. You can 
even skip displaying a subroutine call and up to seven 
breakpoints can be set during execution. Use of Debugl 
can payforitself manytimesoverby saving you valuable 
debugging time. $79.95/$20. 


DEBUG И 

This is an expanded debugger which has all of the 
features of Debug! plus many more. You can “trap” (i.e. 
trace a program until a set of register, flag, and/or 
memory conditions occur). Also, instructions may be 
entered and executed immediately. This makes it easy 
to learn new instructions by examining registers/memory 
before and after. And a RADIX function allows changing 
between ASCII, binary, decimal, hex, octal, signed 
decimal, or split octal. All these features and more add 
up to give you a very powerful development tool. Both 
Debug! and | must run ona 280 but will debug both 280 
and 8080 code. $99.95/$20. 


ZAPPLE 
A Z80 executive and debug monitor. Capable of 
search, ASCII put and display, read and write to 1/0 
ports, hex math, breakpoint, execute, move, fill, display, 
read and write in Intel or binary format tape, and more! 
on disk $34.95/$15. 


APPLE 
8080 version of Zapple $34.95/$15. 


NEW! TPM nowavailable for TRS-80 Model 


m 
TPM* 

A NEW Z80 disk operation system! This is not CP/M*. 
It's better! You can still run any program which runs with 
CP/M* but unlike CP/M* this operating system was 
written specificallyforthe Z80* and takesfull advantage 
of its extra powerful instruction set. In other words its 
not warmed over 8080 code! Available for TRS-80* 
(Model I or 1). Tarbell, Xitan DDDC, SD Sales "VERSA- 
FLOPPY”, North Star (SD&DD), and Digital (Micro) 
Systems. $79.95/$25. 


SYSTEM MONITOR BOARD (SMB II) 
Acomplete 1/0 boardforS-100 systems. 2 serial ports, 
2 parallel ports, 1200/2400 baud cassette tape inter- 
face, sockets for 2K of RAM, 3-2708/2716 EPROM's or 
ROM, jump on reset circuitry. Bare board $49.95/$20. 


ROM FOR SMB Il 
2KX8 masked ROM of Zapple monitor. Includes source 
listing $34.95/$15. 


PAYROLL (source code only) 
The Osborne package. Requires C Basic 2. 
5" disks $124.95 (manual not included) 
8" disks $ 99.95 (manual not included) 
Manual $20.00 


ACCOUNTS PAYABLE/RECEIVABLE 


(source code only) 
By Osborne, Requires C Basic 2 
5" disks $124.95 (manual not included) 
8" $99.95 (manual not included) 
Manual $20.00 


GENERAL LEDGER (source code only) 
By Osborne. Requires C Basic 2 
5" disks $99.95 (manual not included) 
8" disks $99.95 (manual not included) 
Manual $20.00 


C BASIC 2 
Required for Osborne software. $99.95/$20. 


SYSTEM/6 
TPM with utilities, Basic | interpreter, Basic E compiler, 
Macro | assembler, Debug | debugger, and ZEDIT text 
editor. 
Above purchased separately costs $339.75 
Special introductory offer. Only $179.75 with coupon!! 


L- $160.00 
[c cp m ГО 


ORDERING INFORMATION 
Visa, Master Charge and C.O.D. O.K. To order call or 


write with the following information. des | 

1. Name of Product (e.g. Macro |) Ge 

2. Media (e.g. 8” CP/M) в. ч. 

3. Price and method of payment (e.g. C.O.D.) include 
credit card info. if applicable. 

4. Name, Address and Phone number. 

5. For TPM orders only: Indicate if for TRS 80, Tarbell, 
Xitan DDDC, SD Sales (5/” or 8"). ICOM (5'4" or 
8"), North Star (single or double density) or Digital 
(Micro) Systems. 

6. N.J. residents add 596 sales tax. 


Manual cost applicable against price of subsequent 
Software purchase in any item except for the Osborne 
software. 


For information and tech queries call 
609-599-2146 


For phone orders ONLY call toll free 


1-800-327-9191 
Ext. 676 


(Except Florida) 
OEMS 
Many CDL products are available for licensing to 
OEMs. Write to Carl Galletti with your requirements. 


* 280 is a trademark of Zilog 

* TRS-80 is a trademark for Radio Shack 

* TPM is a trademark of Computer Design Labs. It is not 
CP/M* 

* CP/M is a trademark of Digital Research 

Prices and specifications subject to change without 

notice. 


DEALER INQUIRIES INVITED. 


COMPUTER 
DESIGN 
LABS 


342 Columbus Avenue 
Trenton, N.J. 08629 


NEWS & VIEWS 


by Sol Libes 


SOL BUSINESS SYSTEMS GROUP FORMED 

A users group, called ASCII, has been formed 
to support SOL business systems users. 
Membership is $10 for which members receive 
four newsletters yearly, a HOT-LINE for problems 
and other benefits. Toobtain more information or to 
join call or write: Jerry Brockway, Suite 308, 
Bayside Building, Tampa Florida, 33609; telephone 
(813)837-4655. 


CP/NET NEXT DIGITAL RESEARCH PROJECT 

With CP/M 2.0, MP/M, and PL-1 now in 
distribution, Digital Research is turning its 
attention to CP/NET. CP/NET will be a control 
program for microcomputer networks which allows 
independent processors to access I/O facilities 
through a network. Applications range from 
sharing peripherals among several slave MP/M and 
CP/M operating systems, to networks where the 
slaves provide only the computing elements which 
depend upon the master for disk, printer, and other 
МО facilities. CP/NET will be divided into three 
distinct programs which operate under a master 
MP/M, slave MP/M or CP/M system, or take the 
place of the BDOS in a CP/M slave. Look for 
release in the late summer. 


CBBS ADDITIONS 

The following are some new CBBS systems 
that are "up and running". They should be added to 
the listing published previously in the Jan/Feb 
issue. 


Long Island Computer Association... (516)938-9043 
Sacramento Computer Club ...... (916)483-8718 


PASCAL LIBRARY IN OPERATION 

Jim Gagne, DataMed Research, 1433 Roscomare 
Rd, Los Angeles, CA 90024 (213/472-8825) has 
assumed the role of interim librarian for the UCSD 
PASCAL User Group. He is publishing a newsletter 
and furnishing copies of the four volume of software 
currently in the library. The library disks are 
available for $10 -- tax, each, and are furnished on 
8" single-density, USCD or CP/M format. AII library 
material may be freely copied as long as it is not 
sold for profit. 

If you donate accepted software to the library you 
get a free volume of your choice. He is looking for 
disk editors to collect, organize, check out, 
document and catalog disks. Disk editors will be 
listed as editor of the disk, receive $1 for each disk 
sold and receive copies of all of the Group's disks. 
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S-100 COMPUTER CLUB ADDITIONS 

І have received notification from several other 
computer clubs that either have S-100 User Groups 
or are exclusively S-100 oriented. They are the 
following: 


Utah Computer Association 

Has Software, hardware, CP/M and UCSD 
PASCAL User Groups. 378 E. 9800 So., Sandy, 
Utah, 84070; contact: Larry Barney (801-571-9661) 
or Scott Nelson (801-571-1335). 


Evansville, Indiana Computer Club 

Has SOL, ALTAIR and CP/M User Groups. 
Write:Evansville Computer Club, c/o National 
Sharedata Corp., POB 3895, Evansville Ind. 47737 
or call: Bob Herrdink 812-426-2725. 


Australian User's Group 

Called "80AT" (80 Applications Transfer) has a 
CP/M user group and has as its primary function 
software exchange. It maintains an active software 
library. For information write: 80AT, C/- Planet 3 
Systems, 47 Birch St., Bankstown, NSW 2200, 
Australia. 


Boston Computer Society 

North Star and CP/M User Groups. Write to: The 
Boston Computer Society, 17 Chestnut Street, 
Boston MA, or call: Gary Saxton (617) 816-6600 
ext-2707 (days) or 877-6456 (evenings). 


New England Computer Society 

CP/M User Group. Write to: NECS, POB 198, 
Bedford MA, 01730, or call: Dave Mitton (617) 
493-9362. 


"C" USER GROUP NEWLETTER PUBLISHED 
The first issue of the "C User Group 
Newsletter” has appeared т print. For the present 
it is available free of charge (although | personally 
feel that a $2-3 contribution should be sent to 
Acover postage, printing and misc.). Also, a disk 
contraining C-programs is available (disk and 
return postage must be provided). For more 
information write: C USER GROUP, P.O. Box 2556, 
Tallahassee Fla. 32304, or call: (904)644-2764 
between 0730-0930 and 1600-2000 EST or 
(904)224-1101 between 1000-1530 EST. 


CP/M USERS MAGAZINE PUBLISHED 

LIFEBOAT ASSOCIATES, the prime distributor 
of CP/M system software, has started publishing a 
monthly magazine for CP/M users. Although to a 
large extent it is a promotional vehicle for Lifeboat it 
contains a wealth of information. 

The following is quoted from the LIFEBOAT 
news release: 

"Lifeboat Associates is pleased to announce 
the creation of LIFELINES, a monthly newsletter 
specifically designed for those who take 
computers and computer software seriously. The 
primary objective of LIFELINES is to give software 
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owners ІШІ after-sale service by keeping readers 
informed on the current status of software 
products. Each month there will be a table listing 
the array of serious CP/M compatible software 
products distributed by Lifeboat Associates. 
Readers will be notified of new versions, new 
products, discovered bugs and bug fixes. Articles 
dealing with the relative merits of alternative 
software products will be featured. 

Another objective of LIFELINES is to act as a 
forum for software users. Subscribers will be 
provided with the opportunity to give effective 
feedback to authors and distributors and to share 
experiences and concerns. 

LIFELINES will also serve as the offical 
newletter of the CP/M Users Group (CPMUG). A 
section of LIFELINES will be devoted to the 
distribution of users group's news; catalogs and 
abstracts of new CPMUG volumes will be 
published." 

The first issue contained the following 
goodies: 

1) List of all CP/M software distributed by 
Lifeboat with the current release version indicated. 
(It was distressing to find out that every CP/M 
based software package ! owned is out of date.) 
Descriptions of many of the new versions were 
given explaining the differences between the new 
and old versions. 

2) Known bugs in Lifeboat distributed software 
were listed for many of the packages. This article 
listed about a dozen or so bugs. Somehow І have 
the feeling that the list should have been many 
times larger. 

3) There was a delightful article by Ward 
Christensen titled "Users Group News". Ward is 
one of the most active contributors to the CP/M 
User Group Library and gives some good insight 
into the workings of the library. He also comments 
on some of the more worthwhile programs in the 
library. 

4) There was a listing of three of the new disks 
in the CP/M user library together with abstracts of 
the contents of the disks. Regretfully only three out 
of the nine new disks were described. Hopefully 
this listing will continue in the next issue of the 
magazine. 

Тһе first issue was 17 pages and carries a price 
of $2.50 which appears a bit steep to me. Harris 
Landgarten, the editor of the magazine tells me that 
the following issues will be larger in size. The 
"introductory" price is $18 for 12 issues (USA, 
Canada & Mexico), $40 elsewhere. It will be mailed 
First Class or Air Mail. To subscribe write to: 
LIFELINES, 1651 Third Avenue, NY NY 10028. 


Z USERS GROUP FORMED 

Anew Users Group has been formed to support 
Ithaca InterSystems — software.....presently 
consisting of PASCAL/Z, Z-80 and 2-8000 
software. № aims to assist users and provide а 
means of software exchange. A flyer will be issued 
bimonthly with bug notes, fixes or anything else of 
interest to the group. It will cost $6 to get on the 
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mailing list. Public domain programs that run under 
CP/M, single sided/single density, will be 
distributed. Thefirst volume is due for distribution 
on July 1st. There will be a charge of $10 per disk, 
which includes the disk and mailing. Plans call for 5 
disks to released in the near future. The mailing list 
flyer will announce each new volume. There is no 
membership fee and the organization will be non- 
profit. 

Donations will be distributed with full credit and 
comments. For information contact: ZUG, 7962 
Center Parkway, Sacrement CA, 95823. 


DIGITAL RESEARCH EXPECTS HUGE SALES 
INCREASE 

Talk about luck. Back in 1975 Gary Kildall 
developed CP/M as an 8080-based disk operating 
system to work with Intel's PL/M development 
language. Gary had worked as a software 
consultant to Intel and helped develop PL/M. He 
developed CP/M on his own expecting that Intel 
would grab it up. But no such luck. Intel was more 
interested in selling hardware and did not 
yetappreciate the importance of software. Little did 
they realize that CP/M would become the standard 
for microcomuter operating systems and generate 
millions of dollars in sales. 

Gary began to distribute CP/M mainly by word 
of mouth recommendations. Within three years 
sales rose to over $1 Million. Today DR employs 16 
people and expects 1980 sales to hit $3 Million. 
They are planning to double in size and reach $30 
Million next year. Currently CP/Mis licensed to 200 
manufacturers and software houses and there are 
over 400 applications packages which run under 
CP/M. 

DR currently also offers MP/M, a multitasking 
DOS and PL1. Soonto be introduced is CP/NET for 
microcomputer networking and an operating 
system for 8086, 16-bit, based systems. 

Now | ask you: where do you think we would be 
today if Intel had bought CP/M? Also, where would 
Gary Kildal and Digital Research be? 


RUMOR 

I received a phone call from an IC manufacturer 
who is seriously considering introducing a two-IC 
chip set which will handle all the interfacing 
requirements for the S-100 bus. This would reduce 
the number of ICs required on both Master and 
Slave cards and reduce product cost. The ICs will 
provide all the necessary bus buffering, control 
signal and address decoding and DMA logic and 
will meet the IEEE S-100 specs. 


NORTH STAR USER GROUP FORMED 

An international North Star User Association 
(INSUA) has started. It will provide laison, feeback 
and fixes for North Star users. It will also work with 
established local North Star user groups. It will 
publish a quarterly newsletter and maintain and 
distribute software. 

Membership is $15. Рог more information 
contact: INSUA, 131, Highland Ave., Vacaville CA, 
95688 or telephone: (707)448,9055. 
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News/Views, contd... 


INTEL RELEASES DATA ON 
32-BIT MICROPROCESSOR 

Intel, the recognized leader in microprocessor 
development, has “leaked” advance information on 
three new forthcoming microprocessors. Two are 
upgrades of the current 8086 16-bit processor and 
the third is a full 32-bit microprocessor. АП are 
expected to be introduced officially in 1981. 

Also, Intel will go to a new part number system. 
Gone will be designations such as 8088, 8086, etc. 
All processor chips will have an “iAPX” prefix which 
stands for "Intel Advanced Processor Architecture." 
Thus the 8086 will now be known as the iAPX-86. 
Adding I/O processors will make it an iAPX-86/11 or 
iAPX-86/12 for one or two channels, respectively. 
Add a math processor and it will be known as the 
iAPX-86/20 or combined with I/O processors it will 
be an iAPX-86/21, etc. 

The new 16-bit microprocessors will be known as 
the iAPX-186 and iAPX-286. They are upgrades of 
the 8086 providing up to 30 and 10096 performance 
improvements. Both will have one gigabyte of virtual 
memory addressing and 16 megabytes of direct 
addressing. 

The iAPX-186 will have three 16-bit timers, an 
interrupt controller, clock generator, two DMA 
channels, and a special communications port on 
chip. It is thus designed for multiprocessing 
applications. The iAPX-286 version will be designed 
for multi-user applications and will have an on-chip 
memory manager and two I/O channels. Both 
devices will come in 68-pin packages. 

The iAPX-432 will be a 32-bit microprocessor with 
full 32-bit architecture. It will directly execute the 
ADA high level language, an extension of PASCAL. 
The iAPX-432 will be a 3-chip set and up to eight 
processors can be plugged into the bus, without 
changing system software, to make up one CPU 
with increased power. 


A/D-D/A 


S-100 A/D 

8 Ch. Differential or 

16 Ch. Single-Ended, 
S-100 8086 12 Bit, High Speed $495. 


CPU with $450. 
Vectored Interrupts S-100 D/A 4 Channel 


РВОМ-І/О 5495. 12 Bit, High Speed $395. 
RAM $395 
8K x 16/16K x 8 TREEBO A7D-DZA 


Parallel /O $350. | 12-Bit, High Speed 
and Timer Available Soon 
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00 VIDEO 
DIGITIZATION 


Real Time Video $850. 
Digitizer and Display 


Computer Portrait 


RUMORS 

More rumors keep sufacing that IBM will soon 
introduce a new microcomputer using an IEEE S-100 
bus interface. It has already been dubbed the 
“1505.” It will be made in Japan, sell for about 
$4,500, include integral CRT, 16K of RAM, 30 cps 
printer, tape cartridge drive, ROM BASIC, and will 
use an 8080 type microprocessor..... Intel is 
expected, shortly, to announce a 60% price cut on 
the 8088. The 8088 is essentially a 16-bit processor 
with 8-bit I/O, executing the 8086 code. This 
reduces the 8088's price to $25 in 1,000 lot 
quantities and to $15 in higher quantities. It is 
expected that the 8088 will be under $10 within 
another year. 


8088 CPU CARD TO BE AVAILABLE 

In BYTE magazine's September and November 
issues there will be an article on constructing an 
S-100 8080 CPU card. The card was designed by 
Tom Cantrell, of Intel. Tom will be selling a bare 
CPU card with manual for $60. Also, he will make 
available a monitor program on disk or in ROM for 
$40. This could prove to be a very economical way to 
move up into the 16-bit CPU area. The 8088 executes 
the 8086 code but has 8-bit 1/О. The card will work 
with standard 8-bit wide S-100 memory cards 
andl/O cards. It does lack certain IEEE features 
such as 16-bit request logic and pSTVAL control 
signal. The 2-K ROM monitor program is very 
powerful and includes debugging features such as 
multi-bread-points and single-step execution. Tom 
points out that Digital Research will soon release an 
8088/8086 version of CP/M which should be easily 
adaptable to the CPU card. Further, the current 8086 
microsoft assembler can be used to generate code 
for the 8088. For more information contact: Micro 
Future, PO Box 5951, San Jose CA, 95150; (408) 
249-0560. 


S-100 Boards 


Video and/or Analog 
Data Acquisition 
Microcomputer Systems 


The High Performance S-100 People 


TECMAR, INC. 
23414 Greenlawn е Cleveland, OH 44122 
$4950. | (216) 382-7599 
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COMPLEMENTARY PLOTTING PRODUCTS 


ELENEN Хы 
NP-2S 
PLOTTER 

є 


Includes Аме UERN BW Wr 
packages, Driver Yor 56-755 AR 

and Choracrter Piet “уу, . N 
Will plot an NV. < ухх, + 
of any Lenartty SX а 


NS 


еу And much more. 


This advertisement was created by LEAPAC 
The software 
compatable SUBROUTINE PACKAGES. They are 


Engineering MP-250 Plotter, 


оп eight inch СРМХ soft sectored disks. 
be selectively [inked to programs comp 
FORTRAN-80, COBOL 


X CP/M is a registered trademark of Digital Research Inc. 


The above LEAPAC PERSPECTIVE PLOT PACKAGE and MAURO MP-250 PLOTTER, if purchased 
together, will include the perspective plot application modules, L3P-CHAR and L3P-ARC. The packages 


can be purchased individually. See below. 


L3P — LEAPAC Basic Perspective Plot Subroutine Package. $195.00 
(requires external subroutine PLOT) 

L3P-CHAR — Perspective ASCII Character Plot Subroutine Package. $65.00 
(requires L3P and L2D-CHAR) 

L3P-ARC — Perspective Elliptical Curve Plot Subroutine Package. $65.00 
(requires L3P) 

L2D-CHAR — X-Y ASCII Character Plot Subroutine Package $95.00 
(requires ext. subroutines PLOT and WHERE) 

120-МРО — X-Y Vector Plot Driver for the MAURO МР-250 Plotter $65.00 
(contains PLOTS, PLOT, WHERE, FACTOR and SETORG) 

L2D-DPD — X-Y Vector Plot Driver for 1600 type DIABLO Printers. $65.00 
(contains PLOTS, PLOT, WHERE, FACTOR, RESET and SETORG) 

MICRO PLOT — Extensive X-Y Vector Plot Subroutine Package from MICAH $195.00 ALL ORDERS PREPAID OR C.O.D. 


for daisy wheel bi-directional printers such as Diablo 1620, Sprint-5, etc. 


20 days to clear the banks. 


atable to 
80, and COMPILER 


Prepaid — send certified or cashiers’ check. Personal and company checks require 


C.O.D. — add $10 or 2% for handling, whichever is greater. 


Deliveries in California — add 6% sales tax. 


DEALER INQUIRIES ARE INVITED — Inquire about other diskette formats. 


LEAPAC SERVICES 
8245 Mediterranean Way 
Sacramento, California 95826 
(916) 381-1717 
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Software Product Review 


THE MATE TEXT EDITOR- 
WORD PROCESSOR 


One of the widely known benefits accruing to the 
S-100 computer owner is that he can use the CP/M" 
operating system. One of the widely unknown benefits 
of using CP/M is the opportunity to use a suberb text 
editor-word processor called MATE. This program, 
designed and coded by Michael Aronson, was copy- 
righted early in 1979 and sold, until recently, for 
$69.50. Aronson, for some reason, did not aggres- 
sively market his product and it has become known to 
only a small sample of the CP/M users through word- 
of-mouth. 

| have used it for six months now, writing all my 
assembly, FORTRAN, CBASIC, PILOT and C source 
programs with it and would feel crippled without it. Two 
years ago | had a hard time getting used to the CP/M 
editor (ED) but finally grew rather fond of it. However, 
since acquiring MATE, | have not written a program 
with ED. One thing more, which Гт sure will surprise 
Pencil enthusiasts, (and | include myself amont them); | 
rarely use Pencil now, finding MATE my choice in word 
processing, although MATE does not have all the 
output formatting capabilities present in PENCIL. 

MATE comes with a good user manual and inter- 
face guide, and Aronson shows that he is sensitive to 
the documentation problem by the way he has design- 
ed and written it. The disk | received had drivers for 
interfacing with VDM-1, ADM-3 and Hazeltine 1500 
CRT's in both HEX and ASM files. Following clear 
instructions in the interface guide of the manual, | had 
my VDM-1 version up and running without trouble. 

Aronson, in the introduction to his manual, spells 
out the commonly accepted meanings of "text editor", 
"word processor" and "text output processor" and 
explains that "MATE is an attempt to combine some of 
the best features of all three". | think he has been 
successful in this attempt. 

Mate comes up in a “Command Mode" which is 
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reminiscent of CP/M's ED. There are a wealth of 
commands here, the majority of which, | must confess, 
| don't use much because | find it so convenient to use 
similar "instantaneous" commands in the "Insert 
Mode". In this mode, what you see is what you get. Text 
is entered by simply typing. Editing changes show up 
instantaneously on the screen at the cursor position. 
No more blind editing! You can move the cursor to the 
beginning or end of the text buffer with control A and 
control Z respectively, and besides moving the cursor 
up or down one line at a time you can move it up or 
down 6 lines at a time. This allows you to move through 
your text very rapidly. Similarly you can move the 
cursor forward or backward one character at a time, or 
one word at a time. Insertion or deletion of text at the 
cursor is similarly easy, instantaneous and always with 
the sure knowledge that it has been done correctly 
since you see it happen. Big blocks can be moved 
either with tags or with easy moves of text to one of ten 
text buffers available, from which it is inserted at the 
cursor position with another simple command. 

Search, search and change, set tab stops, delete 
tab stops, set left and right margins are all commands 
(with many options) available to the user of MATE. 

Users with big complicated editing jobs will 
probably find the macro facilities available in MATE 
very much to their liking for they can, in effect, add their 
own commands to MATE's command set. To aid in 
"programming" these complex macro command 
strings, Mate includes a breakpoint and trace facility. | 
have not attempted to build any macro command 
strings because for the uses | make of MATE | find it 
quite powerful enough the way it is. However, many will 
probably want to improve its output formatting capabil- 
ity and this would be one way to do so. 

In summary, | think that for the money MATE 
cannot be beat; and that many of you will agree with me 
that in preparing source code files under CP/M it 
cannot be beat at any price. 
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SO, WHAT ARE YOU 
WAITING FOR? 


VECTOR GRAPHIC (202 off) 
(all are assembled & tested) 


ZCB Z80A SBC 5345.00 
Z80A CPU 5195.00 
Flashwriter 2 video $295.00 
Bitstreamer 2 І/0 $225.00 


Precision Analog $350.00 
Hi-res. Graphics $225.00 
Video Digitizer $160.00 
18=slot mother $160.00 
PROM/RAM 3 (12K) 5195.00 
8K Static RAM $175.00 
64K Dyn. RAM $795.00 


Micropolis Disk Cont.$425.00 
Vector Graphic MZ $3495.00 


System B $4495,00 
System B/Q (w/Qume) $7395.00 
NEW System 2800 $5995,00 
NEW System 2800/Q $8895.00 
NEW System 3030 SAVE 


OTHER SPECIALS 


Zenith 789 (48K) $2595.00 
PASCAL Microengine CALL 
CF&A desks 30" X 48" $159.00 
CF&A Univ. print. std.115.00 
(the CF&A pair) only $259.00 
Konan "Hard Tape" subsystems 
from $5995.00 


"THE DAISY PATCH" 


Plessey "Alphagraph" printer 

(daisywheel w/ bi-directional 
tractors) SPECIAL $2495.00 

C. Itoh "Starwriter"$1895,00 

NEC & Qume printers CALL 


Anadex 9500 51495,00 
Centronics 737 5895.00 
ТУІ 912 & 920 B&C CALL 
ADDS 25's & 40's CALL 


Microterm 2A, 5A, 100 CALL 
Graham-Dorian Software SAVE 


CARDFILE is an enhanced version 
of Vector Graphic's Word Mgmnt. 
merged mailing list...more like 
a DBMS and it handles 9-digit 
zip codes! ONLY 5125.00 
(with MEMORITE only 9500.00 


25% down - balance COD 
prepay saves freight 

(add 4Ztax on MN sales) 
local prices slightly higher 


~Budget InfoSystems- 


1633 МЕ "Highway Ten- suite 5 west 


Spring Lake Park, MN 55432 
+ 786-5545 (757-5878afterhours) + 
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А 16-ВІТ WIDE MEMORY 


FOR THE S-100 BUS 


Ken Maun & Pat Stakem 


This article discusses the design of two 16 bit wide memory boards 
compatible with the proposed IEEE S-100 bus standard 
(IEEE-696) These units are compatible with the addressing 
modes of current 16 bit and extended 24 bit addressing. By using a 


piggyback card in one of the designs, 


different memory 


configurations (ROM, dynamic RAM, static RAM) may share the 
same controller and power circuitry. Virtual address paging is also 


discussed. 


The IEEE proposed standard for the S-100 bus 
(reference 1) expands its capabilities from 8 bits of 
data and 16 of address to 16 bits of data and 24 of 
address. These features are required by the new 
generation of 16 bit processors such as the 9900, 
8086, Z-8000, and M68000. Although 16 bit proces- 
sors have been put on the S-100 bus before, these 
operations involved compromises such as dual S-100 
busses for parallel data access, or sequential byte 
accesses. In addition, processors on the S-100 bus 
had to emulate 8080 timing and control, since the bus 
was essentially an 8080 bus. These restrictions have 
been greatly relaxed by the new bus standard, and the 
IEEE group is to be greatly lauded for achieving a 
semblance of order in a difficult area. 

To support a new family of 16 bit procesors on the 
S-100 bus, a new series of peripheral cards are called 
for. This paper describes a memory card philosophy 
for the new S-100 standard that is compatible with 
both 8 and 16 bit accesses, and both byte and word 
mode 16 bit operations. 

First, the extension of the address bus to 24 bits, 
and the data bus to 16 bits will be briefly discussed. 


Discussion of the 24 bit addressing mode 

The address bus can be viewed as 16 or 24 
parallel lines. At least 16 lines are employed, with more 
lines available if extended addressing is desired. 
These lines are designated AO (LSB) thru A15 or A23 
(MSB). 1/О device addresses appear on address lines 
AO through A7, or AO through A15 if extended I/O 
addressing is to be employed. 


Discussion of 16 bit data mode 

For byte operations, the "old" S-100 standard of 
two unidirectional 8 bit data busses is used. Data input 
(with respect to the bus master) appears on the DI bus 
and data output on the DO bus. For sixteen bit data 
transfers, the DI and DO busses are used together as a 
single 16 bit bidirectional bus, under control of a 16 bit 
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transfer request line and acknowledge line. The ac- 
knowledge line is incorporated to allow use of current 
8 bit memory and 1/О boards intermixed іп a system 
with 16 bit boards. It should be noted that in the 
present proposed IEEE configuration it is possible to 
parallel two present design memory cards, or one of 
present design and a new eight bit card, to accomplish 
alternately an 8 and 16 bit wide memory, but that this is 


ADDRESSING, BUFFERING, 
& CONTROL ON BOTTOM 
CARD 


FIGURE 1 


not simple nor completely straightforward. A minor 
modification of the presently proposed standard 
would allow this. However, in this discussion such a 
modification will not be considered. Rather, we pre- 
sent two new memory card designs of flexibility and 
expanded capability, and a low cost alternative. 


A High Flexibility Memory Unit Design 

One of the main concerns in designing a byte- 
organized 16-bit memory is that of byte boundaries. 
For example, consider a CPU access of a single byte at 
location thirty (0011110). Next, assume that CPU tries 
to fetch a double byte instruction from the following 
location (thirty one). This would entail fetching a byte 
from locations thirty one (0011111) and thirty two 
(0100000). The memory must know to take from its 
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THE NEXT GENERATION OF MICROCOMPUTERS 


IS HERE AT | 
QUASAR 
DATA PRODUCTS 


Z-8000 


AND STILL RUN YOUR 8 BIT SOFTWARE 


2-8000 SERIES 16 BIT CPU S-100 BOARD — CAN BE PLUGGED INTO YOUR EXISTING SYSTEM 


* FULLY S-100 IEEE COMPATIBLE 

* SUPPORTS EXISTING 8 BIT MEMORY AND 8 BIT PERIPHERAL 
BOARDS 

* CAPABLE OF READING AND/OR WRITING 8BIT, 16 BIT OR MIXED 
8 BIT AND 16 BIT MEMORIES AUTOMATICALLY 

* 8 BIT AND/OR 16 BIT PERIPHERAL MODULES CAN 
SIMULTANEOUSLY CO-EXIST IN THE SAME BUS WITHOUT 
ANY MODIFICATIONS 

* CAPABLE OF OPERATING AS A SLAVE PROCESSOR TO ENABLE 
YOUR EXISTING CPU TO CONTROL THE 2-8000 


® SUPPORTS ON-BOARD HARDWARE SINGLE STEPPING 
® SUPPORTS EITHER SEGMENTED CPU OR NON-SEGMENTED CPU 
* POWER-ON AND RESET JUMP DIP SWITCH SELECTABLE 
* JUMPER SELECTABLE 2 OR 4 MHz. OPERATION 
* DIP SWITCH SELECTABLE NUMBER AND TYPE OF WAIT STATES 
e SOFTWARE 
* 2-80 EMULATOR ENABLES YOU TO EXECUTE YOUR EXISTING 
8 BIT SOFTWARE WITHOUT ANY MODIFICATIONS AND 
ALLOWS YOU TO RUN CP/M IMMEDIATELY 
* EXTENDED MONITOR, DEBUGGER, DISASSEMBLER 


INDUSTRIAL QUALITY 


2-80 SERIES 8 BIT CPU 5-100 BOARD 

* 4 MHZ. 2-80 MICROPROCESSOR 

* FLOPPY DISK CONTROLLER ALLOWING SINGLE- AND 
DOUBLE-DENSITY USING EITHER 8" or 54” DISK DRIVES 

* ROOM FOR THREE 2716 EPROMs or THREE 2316 ROMs 

* TWO RS-232C SERIAL PORTS 

* TWO PARALLEL PORTS 

* HARD DISK CONTROL VIA THE PARALLEL PORTS 


Z-80 


* REAL TIME CLOCK 

* RESET-JUMP CIRCUIT ALLOWS CPU TO JUMP TO MONITOR 
SOFTWARE ON RESET 

* CAPABLE OF PROGRAMMING AND VERIFYING INTEL 2716 ON 
BOARD WITH EXTERNAL POWER SUPPLY 

* UTILIZES VECTORED INTERRUPTS OF Z-80 CPU 

* MONITOR PROVIDED 


INDUSTRIAL QUALITY 


QDP-8100 WITH 2 MEGABYTES STORAGE 
STANDARD (OPTIONAL 4 MEGABYTES) 
• 2.8000 SERIES 16 BIT CPU 5-100 BOARD - SEE ABOVE 
• SOFTWARE (PROVIDED WITH SYSTEM) 

* CP/M 2.2! OPERATING SYSTEM 

* BASIC 

* 280/8080 EMULATOR 

* MONITOR, DEBUGGER, DISASSEMBLER 

SOFTWARE OPTIONS: PASCAL 
* UNIX? OPERATING SYSTEM COMING 


SYSTEMS QDP-100 WITH 2 MEGABYTES STORAGE 


STANDARD (OPTIONAL 4 MEGABYTES) 
• 2.80 SERIES 8 BIT CPU S-100 BOARD - SEE ABOVE 
* SOFTWARE (PROVIDED WITH SYSTEM) 
* CP/M 2.2! OPERATING SYSTEM 
* BASIC 
* ACCOUNTS RECEIVABLE, GENERAL LEDGER, ACCOUNTS 
PAYABLE, PAYROLL WITH COST ACCOUNTING 
* OPTIONAL SOFTWARE: FORTRAN, PASCAL, COBOL, C 


e INTELLIGENT CRT TERMINAL (80 CHARACTERS X 24 LINES) 
EACH SYSTEM , 64 KBYTES RAM 


CONTAINS: • TWO 8 INCH, DOUBLE SIDED, DOUBLE DENSITY FLOPPY DISK DRIVES WITH CONTROLLER 
* 2 SERIAL AND 1 PARALLEL (2 PARALLEL FOR QDP-100) PORTS 


ІСР/М" DIGITAL RESEARCH 
?UNIX™ BELL LABS 


* ATTRACTIVE WOODGRAIN CABINET WITH POWER SUPPLIES AND CABLING 
FULL TECHNICAL SUPPORT FROM THE STAFF AT QUASAR DATA PRODUCTS 


4 Mhz 64K Dynamic RAM 
16K - ‘250% 32K -:350% 48K - °450° 
QUASAR FLOPPY SYSTEM 


* Two MFE DBL sided drives * Cable * Case & Power Supply 
assembled and tested Wood cabinet --....-........ 31895? 


QUASAR 2 MEG FLOPPY 
* 2 MFE double sided drives 


64K - “549% 


TELETEK DBL. DENSITY, DBL. SIDED 
Disk Controller Вов... coe euo rv VE 5395% 


МЕЕ Double Sided - Double Density 
8" Floppy Disk Drives. (the best) ..... *650" 
Using the Teletek Controller under CP/M, 
THIS DRIVE WILL GIVE YOU ALMOST 
ONE MEGABYTE PER DISK DRIVE. 


* Teletek disk controller board Power supply for above .............. 5110% 
* Power supply & cable 
* Wood cabinet 
* CP/M version 2.2 & bios 
* Assembled & tested ....... :2295"» PAPER TIGER is TI - 820 
Dealer Inquiries Invited, Hours:9-5:30 M-F Includes Graphics ~... sis. 949 
Cable for TRS-80 ...... 539% Serial Printer - 


Specifications Subject To Change 
UnixTM - Bell Lab 30 Day ARO СР/Мтм - Digital Research 


Call for Apple 


Checks, money orders accepted 


.71995% 


Full package options.. 


Add $2.50 freight charges on orders under 10 Ibs. Over 10 Ibs. F.O.B. Cleveland 


QUASAR DATA PRODUCTS 


VISA" 


25151 Mitchell Dr., No.Olmsted, Ohio 44070 (216)779-9387 
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odd-byte memory and put data onto the lower lines, 
and to take from its even-byte memory and put data 
onto the upper lines. (At other times, it would have to 
put the data out in reverse order ofthis.) Additionally, in 
the case above, in which the address is given in the 
odd byte, the memory would have to know to access a 
completely different address for the even byte. In the 
above case, it is 001111X for the odd byte, and 
010000X for the even byte. This is the age old problem 
faced by mini-computer designers. Some have ignored 
the problem, only to be faced with programming 
problems in the field. It is a serious consideration. 
For some of the 16-bit micros, such as the 9900 
which addresses only on even-byte boundaries this is 
no problem (the 9900 doesn't have an AO line). Others, 
such as the 8086, addressing can be on either even or 
odd byte boundaries. To force this machine to observe 
only even boundaries, would pose considerable hard- 
ship on the programmer; however, its designers antic- 
ipated the problem and have constrained the 8086 to 
access odd boundary words in two steps, a byte at a 
time. It seems no current 16 bit processor addresses a 


word on odd (byte) boundaries. This simplifies the 
design. 

The design series in figures one through four can 
operate on either odd or even boundaries. It can also 
transfer data as either a 16-bit word or an 8-bit byte on 
either boundary. It can be implemented as either a 
static or a dynamic system. The dynamic implementa- 
tion could have more features -- some of whose cost 
would not be justified on the lower capacity static 
units. The family would justify a 16K byte static version, 
a 32K byte static version, and a 128K byte dynamic 
version. The number of features would be directly 
proportional to the capacity. Since the others are only 
a subset of the dynamic unit, only it will be discussed 
here. 

The basic unit is shown in figure 1. Since the unit, 
of necessity, has a good deal of support circuitry, a 
double deck S-100 card is indicated. The easily 
disconnected top card would contain the actual RAM. 
In case of the dynamics, this would have a capability of 
sixty-four chips, in a configuration very similar to the 
present 8K byte static units that proliferate on the 
market. The double-depth card allows compatibility 
with existing cabinets, and the thermal considerations 
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3480 
MEMORY CONTROL 
AND TIMING UNIT 


DELAY 
CIRCUIT 


RAS2 


have been covered by keeping the large heat dissipat- 
ing elements (memory chips and the power regulators) 
completely exposed to the air. Figure 2 shows the 
basic control and interface circuitry, including the 
incrementer which allows us to address words on both 
odd and even byte boundaries, the data bus multi- 
plexers which control the data traffic flow, and the 
memory interfacing, select, mapping and control units 
which allow the memory to be dynamically configured 
and mapped throughout the address space. 

Figure 3 depicts one ofthe two 64K x 8 bit memory 
banks. 
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ADDRESSING 

In order to achieve the byte-boundary addressing 
discussed above, the incrementer, shown in figures 2 
and 4 is used. This is essentially an adder, which 
always adds “one” to any address. The unincremented 
address is supplied to the bank specified on the 
address boundary. Thus, if an odd-byte address is 
received, whatever this address is will be sent to the 
odd-byte memory bank (minus А0). The incremented 
value would be sent to the even-byte memory bank 
(also minus AO). A possible incrementer configuration 
is shown in figure 4. Simpler configurations are pos- 
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16-Bit, cont... 


sible. In the more inclusive implementations of this 
system, each 1K byte portion of each memory could be 
assigned to any location within the entire 16 megabyte 
memory space, thus allowing complete virtual memory 
management and multi-program operation. In addition, 
read protect and write protect could be dynamically 
controlled. A Virtual Memory controller card to accom- 
plish this will not be discussed here. 


OTHER CONSIDERATIONS 

1. Top Byte of Memory: One difficulty in this 
arrangement is in word-addressing the very top of a 
memory card (byte FFFF). When this is done the lower 


byte accesses the top of memory, and the upper byte 
SLAVE CLR* 


if еы 


sINP CONTROL/SETUP | 
UNIT (PART OF 
INTERFACE UNIT) 


А1-А15 
| 
MEMORY SELECT | 
| AND MAPPING 


UNIT 
A14-A23 


LINE 
>----:-:-- 
IN HIGH ORDER DATA INVERTER 


ERROR* (WORD ACCESS TO ODDADDR.) ж. ENABLE HI 
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pSTVAL »—————— —— INTERFACE 
CONTROL 


pSYNC >------- UNIT 


змо" 
sM1 


sMEMR 
2 LOORDERDATA | _ 
(DATA OUT LINE S) | 


sXTRQ* 


SIXTN* 


falls off the edge. Even when another memory card 
follows this one, it has no way of knowing it has been 
addressed. (Actualy the addressing wraps around to 
the bottom of the card, but this is not what the 
programmer usually wants. Rather than increase the 
cost, just to get one-byte of data, a top of memory error 
line is provided to alert the programmer not to access 
this word. (It only occurs once in 128K bytes). 

2. Parts Count: The number of auxiliary chips used 
is relatively high; however, the cost per bit is quite low. 

3. Expandability: This design is capable of later 
expansion to a half megabyte capacity on a single card 
using the 64K bit dynamic RAM. As discussed earlier, 
the cards will be compatible with virtual memory 
mapping. 
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4. Power: Regulated power is provided by the 
controller card, and is derived from the S-100 bus 
unregulated lines. 

5. As mentioned previously, the popular present 
16-bit micros inhibit odd-byte word addressing; how- 
ever, there is no guarantee that this will always be the 
case. With this memory, the user is protected in any 
eventuality, be it a new and different micro, a bit-slice 
design or a 16-bit controller. 


A SIMPLE, LOW COST MEMORY UNIT DESIGN 

For those who do not need all the bells and 
whistles of the design just presented, a simpler im- 
plementation is suggested. It doesn't have odd-byte 
word addressing capability or virtual memory or multi- 
programming facilitation capability. 
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This design, illustrated in figure 5 is simply in- 
tended to provide the capability for a reliable, relatively 
low-cost memory, usable by both 8 and 16 bit masters. 

Figure 6 through 11 show the operation of this 
design in different access situations. The first of these 
(figure 6), for example, shows the flow of data in the 
case in which an 8-bit master (CPU) is writing to an 
even address. Here, data is received by the memory 
unit via the low order data (OUT) lines and presented 
via the proper line receivers to the "EVEN" memory 
data bank. At the same time, this (EVEN) bank is 
enabled to receive data. 

Figure 7 shows an 8-bit write to an odd address. 
Figure 8 depicts an 8-bit read from an even address. 
Note that, here, the High Order (IN) data lines are used. 
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derives its data. Figure 9 shows ап 8-bit read from an 
odd address. 
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Also note that the AO signal is used as a "steering" 
signal to determine from which bank the output MUX 
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The remaining two figures are used to depict 
Sixteen bit transfers. It must be remembered that, in 
this simpler configuration, word transfers are not 
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allowed on odd byte boundaries, thus there are only 
two possibilities, write and read. Figure 10 illustrates a 
16-bit write operation and figure 11 a 16-bit read 
operation. In both cases, both memory banks are 
enabled. Note that for a 16-bit read (figure 11)a special 
provision must be automatically made. In other cases, 
when AO was even it automatically steered the output 
muxes to the proper banks for even data. When odd, 


S-100 MICROSYSTEMS 


^b m Ең 
| MUXES WITH 4 
DÀ E TRISTATE 
«4 vmm 
000 
ВАМК 


Е STATE PAIN 


Е 
Bus 
INTERFACE 


CONTROL 


—: EVEN 
BANK 

DATA OUT 
FH DATA 


ENABLE ODD BANK 


STATUS 
АМО 
CONTROL E 


ENABLE EVEN BANK 


FIGURE 9 


AO steered the muxes to proper banks for odd data; 
not in this case. Due to an idiosyncrasy of the way the 
IEEE S-100 BUS spec is now set up, a special line 
inverter must be included to invert the convention in 
this case. This inverter can be implemented with a 
single exclusive-or gate. 


MUXES WITH 
3-STATE OUTPUT 


gu 


DATA OUT BUS| 


KY 277777777727772777772777777/77277 ”)» 


"ENABLE ООО BANK 
'NABLE EVEN BANK 


FIGURE 10 


Unlike the previously discussed, high flexibility 
design, this simpler configuration can be implemented 
ona single card. As envisioned, it would also probably 
be best limited to simple static ram implementations of 
8 to 16K byte capacities. 


LINE "SPECIAL CASE" $ 


INVERTER 


8.2701 

MUXES WITH 

XSTATEOUTPUT LefAx| Бууз 
à 


д DATAIN BUS 
«ХХХ 


И22242ү27772 


BUS 
INTERFACE 
CONTROL CONTROL 


Й 
/ 
^ 
/ 
/ 
/ 
Й 


4- pata: 2 
< 27772777227777/77727277777. 


ENABLE ODD BANK 
ENABLE EVEN BANK 


FIGURE 11 
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8080 DYNATRACE 


Charlie Foster & Richard Meador 


A super 8080 emulator program useful in debugging 8080 programs. 


Anyone who is learning to program in assembly 
language can use a method of observing just what is 
going on inside of the CPU. If you know how to 
program already, you still need a way to debug your 
new programs. Dynatrace will help you in either 
case. Dynatrace is a development tool that will 
accept commands from any standard АЗСИ key- 
board and provides a TWO PART DISPLAY. The 
video monitor is configured for a 64 character by 16 
line display but since this article includes the source 
any other configuration can be patched into the 
program. 

The upper 4 lines of the display are dedicated to a 
dynamic display of the contents of register 
information being used in conjunction with the 
program being developed. The register display is 
always in view and is updated continuously as 
simulation progresses whether the simulation is 
single step or continuous run. Dynatrace is actually 
a pseudo-computer simulating in software every- 
thing done by the 8080 in hardware and more. With 
Dynatrace the user is able to see at a glance all 
register information and can make changes to 
existing contents of registers as desired. 

Dynatrace is also easily reconfigured to utilize 
subroutines existing in a monitor the user may 
already have up and running. The A, E, F, H, J, K, N, 
O, P, О, T, U, V, W, X and Y commands, being 
undefined, provide the user with the facilities for 
extensive expansion of the Dynatrace command set. 
Unused commands may be implemented by storing 
the address of a subroutine in the jump table 
beginning at address Base + ДАН. Thus, if the base 
of your Dynatrace is 0400H and you have a 
subroutine which you wish to incorporate at address 
0324H and thereby define the A command, you need 
only store 24H at address 044AH and 03 at address 
044BH. Once the new command has been defined, 
the user need only type the capital letter cor- 
responding to the command he has just defined to 
call his subroutine from dynatrace. Any subroutine 
the user may already have in ROM may be 
incorporated as a command by the above method, or 


Charlie Foster, The Brain-Drain Co., 7962 Center Parkway, 
Sacramento, CA 95823 
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if used only infrequently it may be called and 
executed with the C command. If the user so 
desires, he may expand the size of Dynatrace by 
entering subroutines beginning at address Base + 
0С00 hex. In its present form it takes up about 3K of 
memory. As you can see, the source is so heavily 
documented that it is close to 54K. 


Commands 


Commands are given to Dynatrace by typing a 
single capital letter followed by amplifying data as 
described below. All addresses and values are given 
in hex and all hyphens are issued by Dynatrace as 
prompting characters. Carriage returns for indicat- 
ing the end of an entry are not required if the value 
being entered is of the length expected. Thus, 
typing 4 hex digits for an address value of 2 hex 
digits for a byte value will complete the entry and 
not require a terminating character. Any value being 
entered with fewer digits than required will, 
however, require a terminating character such as a 
carriage return. 


B Toggle binary display of scratch 
registers and accumulator 


С-хххх Call the user subroutine ай 
address xxxx. The displayed 
register data is loaded into the 
8080 hardware registers and a 
normal subroutine call is made 
to the above address. A return to 
Dynatrace is effected by main- 
taining proper stack discipline 
and executing a normal subrou- 
tine return instruction. Upon 
return, the contents of the 
hardware registers are stored in 
the user's registers and dis- 
played on the screen of the 
monitor. The C command must 
have the user's stack pointer 
defined to be in some area of 
existing RAM not used by Dyna- 


S-100 MICROSYSTEMS 


D 
FROM-xxxx 
TO-yyyy 


G-xxxx 
STOP AT-yyyy 


Lrxxxx 


Mxxxx-yy- 


trace. This is set up initially for 
the user, so no problems should 
occur. However, if the user 
inadvertantly changes the stack 
pointer to some area in the 
address space where RAM does 
not exist, or where it interferes 
with a stored program (either 
under test or with Dynatrace 
itself), results will be unpredict- 
able. 


Display the contents of memory 
from address xxxx to yyyy. 

The D command does not like 
addresses with unlike signs. 


Causes simulated execution of a 
users program to begin at 
address xxxx and continue until 
address yyyy is encountered or 
any key is typed on the key- 
board. The speed of simulation 
is selected with the “I” command 
below. 


Sets instruction execution speed 
from 0 to F hex where O is 
approximately 1 instruction per 
second and F is about 200 
instructions per second. 


Load register pair with хххх 
where “г” is the first letter of the 
register pair name. (LH1234 
put 1234 in the HL register pair.) 
Note: The accumulator and the 
Processor Status Word are con- 
catenated to form a register pair 
“APSW.” 


Store yy at memory location xxxx 
and prompt with a hyphen for 
more data. Each succeeding byte 
will be placed in a subsequent 
memory location. The entry of 
data continues until a carriage 
return is entered in place of 
information. The M command 
has no provision for backspacing 
to delete an erroneously entered 
character. In the event that an 
entry is made incorrectly, it will 
be necessary to terminate the 
current command line and begin 
entering data after the last 
correct entry. The data entered 
before the error entry will have 
been stored correctly in memory 
and hence need not be repeated. 
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R Read Intel format papertape from 
teletype or reader. 


5 Causes the simulated execution 
of one instruction at the location 


in memory indicated by the 
user's program counter. 
Z 
FROM-xxxx Zero RAM from address xxxx up 
TO-yyyy to but not including yyyy. 
Peculiarities 


1. 


Due to the nature of the execution of certain in- 
structions, the ending of the execution of one 
instruction and beginning of the execution of the 
subsequent instruction does not always corre- 
spond with the display. The simulation, however, 
is always carried out correctly and causes no 
problems in the program under development. The 
inconsistency is the updating of the program 
counter which is delayed one instruction for 
jumps, calls and returns. 


. Dynatrace is not ROMABLE as is, but if the user 


has a need for Dynatrace in ROM he can contact 
the authors to make arrangements to customize 
Dynatrace to his system. If there is any other 
need for customizing, the authors are willing to 
discuss the problem. Just send a self-addressed, 


. Typing C-xxxx, where xxxx is the base address of 


Dynatrace, can be used to restart Dynatrace and 
clear the screen of any previously entered даа. 
The contents of memory are not disturbed, 
providing a convenient way to clear the user's 
registers and reset the stack pointer to its default 
value (C-8000 in this version). 


4. If the user so desires, he may expand the size of 
Dynatrace by entering subroutines beginning at 
address Base -- 0С00 hex. 

5. Your system must be memory-mapped. 

6. All commands must be in capitals. An “Escape” 
will abort an entry. 

7. Displays will be at top of screen for registers. The 
lower middle is for memory read out and the 
bottom for command lines. 

Further Notes 


| would like to say something about how to get 


this program up and running. First of all, it must be 
edited for the change in EQUATEs that will allow it 
to run on the user's system. (In my case, | only 
needed to change the Video and Keyboard equates.) 
Then it must be assembled. Now, the user only 
needs to use DDT to call up DYNATRACE.HEX. 
Once there, type G8000 and DDT will jump into 
DYNATRACE. To return to DDT send DYNATRACE 
to a memory location with a RST 7. (If you don't 
know where one is, use Dynatrace to write one into 
memory. Then use the C command to go there.) 
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Dynatrace, cont'd... to type. So for those who would prefer to have the 


When you want to debug a program you only need to source already ona disk, the authors can provide a 

use DDTs’ "I" command to call it up and the “R” copying service for a limited period of time (until 

command to read it into memory. From there you Jan. 1, 1982). If the reader will send а self- 

are on your own. In my system | have a 4K monitor addressed, stamped shipping package with a disk, 

residing in EPROM, so not only do | use the authors will copy and mail their package (by 

Dynatrace—I use my built-in monitor subroutines, return mail) for a handling fee of $5.00. For those 

too. who don't want to bother with any of that, just send 
If you prefer a COM file, use a Relocatable $25.00 and the authors will provide everything. At 

assembler such as Microsofts’ M80 or Cromemcos' least until the price of materials goes up. Note: The 

ASMB. They can place Dynatrace at any location disk will be CPM/soft-sectored/single density. 

that you would want. A COM file would have to be The authors can be reached at: 

placed at 100H. THE BRAIN-DRAIN CO. 

Conclusion 7962 Center Pkwy 


Sacramento, CA 95823 
Finally, as you can see, the program is a long one 


THE DYNATRACE SOURCE 


DYNATRACE 
V2.0 


Copyright € 1976, by Richard E. Meador, Sacra- 
mento, CA 95826 

All rights reserved with the exception of reproduc- 
tion by those individuals for their own noncommer- 
cial use. 


Edited for publication by Charlie Foster, 1980. 


ORG 080004 HL: DS 2 ;USER'S HL REG PR STORAGE 
DYNAT: 05 0 ;BASE ADDRESS OF PROGRAM STSWRD: DS 1 ;USER'S STATUS FLAG STORAGE 
STACK EQU DYNAT«0COOH ;SET UP SYSTEM STACK AC: DS 1 ;USER'S ACCUMULATOR STORAGE 
CONPRT EQU осн ;CONTROL PORT ADDRESS PC: DS 2 ;USER'S PRIMARY PROGRAM COUNTER STORAGE 
SCREEN EQU OCCOOH ;1К OF BUFFER FOR SCREEN BINFLG: DB 9 ;BINARY DISPLAY SWITCH (0=>№О BINARY DISPLAY) 
TOS EQU (SCREEN+1024)./256 ;LAST BUFFER ADDRESS+1 CPOSIT: DS 2 ;CURSER POSITION FOR ROLLUP PORTION OF SCREEN 
MIDSCR EQU SCREEN +448 ;TOP LINE OF ROLLUP PORTION OF SCREEN STKTMP: DS 2 ; TEMPORARY STORAGE FOR SYSTEM STACK 
LINE EQU 64 764 CHARACTERS/LINE BASE: DS 2 ;BASE ADDRESS STORAGE FOR VARIOUS ROUTINES 
LINE1 EQU SCREEN+LINE LAST: DS 2 ;LAST Ы ы : e 
LINE2 EQU LINE1+64 FROM: DB 'FROM-' ;MESSAGES 
LINE3 EQU LINE2+64 TO: DB пто," i 
LINE4 EQU LINE3464 ASCII: DB '0123456789ABCDEF' ;ASCII HEX DIGIT TABLE 
LINE5 EQU LINE4+64 MOVENM: DB ‘mov , ' ;MOVE MNUMONIC 
LINE15 EQU 5СВЕЕМ%960 DB 'COPYRIGHT (C) 1976, RICHARD E. MEADOR' 
PCH EQU LINE1+8 ;PC HEX DISPLAY LOCATION ; 
INSTA EQU LINE2*8 ;INSTRUCTION ASCII DISPLAY LOCATION ;CODE BEGINS HERE 
INSTH EQU LINE2+18 ;INSTRUCTION HEX DISPLAY LOCATION ; 
SB EQU LINE4+8 ;SIGN FLAG BINARY DISPLAY LOCATION ORG DYNAT ;5ТАВТ ADDRESS 
zB EQU LINE4+9 ;ZERO FLAG BINARY DISPLAY LOCATION START: LXI SP,STACK ;DEFINE SYSTEM STACK 
ACB EQU LINE4+11 AUX CARRY FLAG BINARY DISPLAY LOCATION CALL CLRSCR ;CLEAR VIDEO SCREEN 
PB EQU LINE4+13 ;PARITY FLAG BINARY DISPLAY LOCATION CALL SETSCR ;SET UP DISPLAY OF USER REGISTERS 
CYB EQU LINE4+15 ;CARRY FLAG BINARY DISPLAY LOCATION MVI А,0 ;CLEAR ACCUMULATOR 
ACCH EQU LINE1+22 ACCUMULATOR HEX DISPLAY LOCATION MVI B,14 БЕТ CLEAR COUNT 
ACCB EQU LINE1425 ;ACCUMULATOR BINARY DISPLAY LOCATION LXI H,PCl ;5ЕТ FIRST ADDRESS TO BE CLEARED 
BCH EQU LINE1+37 7B REG HEX DISPLAY LOCATION VDM010: MOV M,A ; CLEAR 
BCB EQU LINE1+42 7B REG BINARY DISPLAY LOCATION INX H ;NEXT ADDRESS 
DEH EQU LINE2+37 ФЕ REG PR HEX DISPLAY LOCATION DCR B 31 LESS TO DO 
DEB EQU LINE2442 ;DE REG PR BINARY DISPLAY LOCATION JNZ VDM010 =; DONE? 
HLH EQU LINE3+37 ;HL REG PR HEX DISPLAY LOCATION LXI H,PCl ;YES, DEFINE USER'S STACK POINTER 
HLB EQU LINE3+42 ІНІ, REG PR BINARY DISPLAY LOCATION SHLD STKPTR Я 
SPH EQU LINE4+37 ;SP REG PR HEX DISPLAY LOCATION VDM015: CALL DSREGS ;DISPLAY CONTENTS OF USER'S REGISTERS 
KSTAT EQU 6EH CALL KEYBDI ;GET COMMAND 
KEYBRD EQU 6CH CPI 40H ;CHECK FOR ALPHA 
KBDRDY EQU 80H JM VDM020 ;IGNORE IF NOT 
RSTAT EQU 07H CPI 5BH H 
READER EQU 06H JP VDM020 ; 
RDRRDY EQU 02H LXI H,KEYTAB ;GET COMMAND LOCATOR TABLE BASE ADDRESS 
SWTCHS EQU OFFH SBI 40H ¡SUBTRACT ASCII BIAS FROM RECEIVED COMMAND 
св EQU ODH RLC ;DOUBLE FOR WORD INDEXING 
LF EQU OAH ADD L ;ADD INDEX 
ESC EQU 1BH MOV L,A i 
; MVI A,0 ; 
; _ ADC H Ў 
¿STORAGE DEFINITION STATEMENTS MOV H,A і 
; моу E,M ;GET COMMAND ADDRESS FROM TABLE 

ORG DYNAT+0B80H — ;SYSTEM WORKING STORAGE AREA INX H ; 
PCl: DS 2 ;USER'S PROGRAM COUNTER STORAGE MOV D,M ; 
STKPTR: DS 2 ;USER'S STACK POINTER STORAGE LXI H, VDM020 ;SET UP RETURN ADDRESS 
BC DS 2 ;USER'S BC REG PR STORAGE PUSH H ;SAVE ON STACK 
DE DS 2 ;USER'S DE REG PR STORAGE XCHG ;HL=COMMAND ROUTINE ADDRESS 
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DISK DRIVE WOES? PRINTER INTERACTION? 
MEMORY LOSS? ERRATIC OPERATION? 


DON'T BLAME THE SOFTWARE 


Power Line Spikes, Surges & Hash could be the culprit! 
Floppies, printers, memory & processor often interact! 
Our unique ISOLAT ORS eliminate equipment interaction 
AND curb damaging Power Line Spikes, Surges and Hash. 


ES 


(Xy Clear up Software and System problems 
with an ISOLATOR! 


ALL ISOLATORS: * 125 VAC, Standard 3-prong plug 
ө 1875 W MAX Load - 1 KW/Socket or socket bank 
e Balanced Pi Filtered sockets or socket banks 
* Spike/Surge Suppression - 1000 Amps, 8/20 usec 
(SUPER ISOLATORS offer expended filtering and 
Spike/Surge Suppression capabilities) 


-3 individually filtered sockets 
-6 individually filtered sockets 
-2 filtered banks; 6 sockets 
-3 flitered banks; 9 sockets 


*SWITCHABLE ISOLATORS - ALL ISOLATOR advantages 
combined with the versatility, convenience and utility of indi- 
vidually switched sockets. Each switch has associated pilot 
lite. 


150-6 -3switched, filtered sockets 
150-8 -5 switched, filtered sockets 


$128.95 
161.95 


*SUPER ISOLATORS - Cure for severe interference problems. 


Useful for Industrial applications and heavy duty controlled 
equipment or peripherals. 

* Dual Balanced Pi Filtered sockets 

е Spike/Surge Suppression - 2000 Amps, 8/20 usec 

ISO-3 -3 super filtered sockets 

ISO-7 -5Super-filtered sockets 


*CIRCUIT BREAKER any model (add-CB) . ADD 7.00 
*CKT BKR/SWITCH/PILOT any model (CBS) ADD 14.00 


PHONE ORDERS 1-617-655-1532 
5? Electronic Specialists, Inc. 


171 South Main Street, Natick, Mass. 01760 
Dept. 
696 


6809 3100 =» 


SINGLE BOARD COMPUTER 


е MEETS І.Е.Е.Е. S-100 STANDARD 
<> % 10 addressing modes 
97» 24 indexed sub modes 
* auto increment/decrement 
* constant indexing from PC 


* 4K/8K/16K ROM 


e 2K RAM 


ROM/RAM relocatable оп АК boundary 
е ACIA; PIA; 8080 SIMULATED 1/0 


е 20 PARALLEL I/O LINES 


е 256 І/О PORTS 


ACIA provides RS-232 lines for asychronous com- 
munications with limited modem control at 8 select- 
able baud rates; I/O locatable at any 4K boundary 


е COMPREHENSIVE MANUAL WITH 


SOFTWARE LISTINGS 


е P.C. BOARD: SOLDERMASKED WITH 


PARTS LEGEND 


P.C. Board & Manual $69.95* + shipping 
е adsMON: ADS MONITOR SUPPORTS 


BREAKPOINTS 


User definable interrupt service & more. 


Available in PROM, write for prices. 


Illinois residents add sales tax. 


*add $1.00 for shipping & handling 


Ackerman Digital Systems, Inc. 
110 N. York Rd., Suite 208, Elmhurst, Ill. 60126 (312) 530-8992 


computer mart 
of new jersey 


Computer Mart of New Jersey 
501 Route 27 
Iselin, N.J. 08830 
(201) 283-0600 


HOURS: 
Open at 10 am, 
Tuesday through Saturday 


the 
microcomputer 
people? 


THE VITAL 
INGREDIENT: 


EXPERTISE 


Defore you buy your new 
microcomputer, chances are 
you have a lot of questions. 
Important questions that 
could mean the difference 
between a working system 
and a wasted system. The 
vital ingredient Is expertise. 
The microcomputer people at 
Computer Mart are expert at 
answering your questions 
and helping you put together 
the best system for your 
opplication. Whether it's for 
business, the home, or the 
laboratory; come see the 
experts at Computer Mort 

of New Jersey. We have the 
vital ingredient. 
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Dynatrace, cont'd... 


PCHL 
VDM020: LXI 

SHLD 

JMP 


H,LINE15 
CPOSIT 
VDMO015 


i 
;COMMAND LOCATOR TABLE 


ғ 

КЕҮТАВ: DW 
ри 
ри 


29279922 29 99g 


TURN: RET 


оз Mc 


LRSCR: MVI 
сут 
LXI 
CLRO10: MVI 
STAX 
INX 
MVI 
CMP 
JNZ 
LXI 
SHLD 
RET 


ETSCR: LXI 
SHLD 
MVI 
STA 
LXI 
SHLD 
LXI 
SHLD 
LXI 
SHLD 
MVI 
STA 
LXI 
SHLD 
MVI 
STA 
МУІ 
5ТА 
МУІ 
5ТА 
МУІ 
STA 
MVI 
STA 
LXI 
SHLD 
LXI 
SHLD 
LXI 
SHLD 
MVI 
STA 
MVI 
STA 
STA 
INR 
STA 
RET 


UTURN 
BINARY 
CALSUB 
DUMPME 
UTURN 


CLEAR VDM ROUTINE 


A,0 
CONPRT 
В, SCREEN 
Fora 

B 

B 

A,TOS AN 
B 

CLRO10 
H,LINE15 
CPOSIT 


B,'PC' 
LINE1+5 
A,'A* 
ШІМЕ1 +20 
H,'BC' 
LINE1+34 
H,'IN' 
LINE2+2 
B,'ST' 
LINE2+4 
A,'R*' 
LINE246 
H,'DE' 
LINE2+34 
А,'С' 
LINE3*15 
A,'2' 
LINE3+9 
A,'P' 
LINE3413 
А, 16 
LINE3+8 
REN 
LINE3+11 
H, "НС" 
LINE3+34 
H,'SP' 
LINE4+34 
H,'PS' 
LINE4+4 
ЖАГЫ 
LINE4+6 
A,'0* 
LINE4+10 
LINE4+12 
A 
LINE4+14 


; (THIS IS REALLY А CALL TO A COMMAND ROUTINE) 
;RESET CURSOR 

; 

; 


END OF COMMAND PROCESSING LOOP 


;A-NOP 

;B-BINARY DISPLAY TOGGLE 

;C-CALL USER SUB-PROGRAM 

;D-DUMP MEMORY TO SCREEN 

; E-NOP 

;F-NOP 

;G-EXECUTE USER PROGRAM INTERPRETIVELY 
;H-NOP 

31-5ЕТ EXECUTION SPEED OF INTERPRETER 
;J -NOP 

;K-NOP 

;L-LOAD REGISTER PAIR 

;M-STORE BYTES IN CONSECUTIVE MEMORY LOCATIONS 
;N-NOP 

;0-МОР 

; P-NOP 

;Q-NOP 

;R-READ PAPER TAPE 

;S-INTERPRET ONE INSTRUCTION 

; T-NOP 

;U-NOP 

;У-МОР 

;W-NOP 

; X-NOP 

;Y-NOP 

;Z-ZERO MEMORY 


;DUMMY ROUTINE FOR NOP'S 


;CONTROL PORT IINITIALIZATUON WORD 
;SEND 

;BASE ADDRESS OF VDM BUFFER 
;ASCII SPACE 
;CLEAR 1 BUFFER WORD 
;UPDATE BUFFER POINTER 
D OFFH ¿LAST BUFFER ADDRESS +1 
;CHECK FOR END OF BUFFER AREA 
;DO UNTIL DONE 

;INITIAL CURSOR LOCATION 
¿STORE TO CURSOR SAVE 
;EXIT 


SET DISPLAY OF USER'S REGISTERS 


; 
;MOVE THE NUMBER OF BYTES INDICATED ІМ DE 
;FROM THE ADDRESS BEGINNING IN BC 

;TO THE ADDRESS BEGINNING IN HL 


; 
БЕТІМЕ: LDAX 


B ;GETBYTE 
MOV M,A ; TRANSFER 
INX H ;UPDATE DESTINATION POINTER 
INX B ;UPDATE SOURCE POINTER 
DCX D ;UPDATE COUNT 
MOV A,E ;CHECK FOR COMPLETION 
CPI 0 ; 
JNZ БЕТІМЕ ; 
"эу A,D ; 
CPI 0 i 
JNZ SETLNE ; 
RET ;EXIT 
; 
; DISPLAY REGISTERS ROUTINE 
; 
;THIS ROUTINE DECODES THE USER'S REGISTER INFORMATION 
; AND FORMATS IT FOR DISPLAY ON THE CRT SCREEN 
i 
DSREGS: PUSH B ;SAVE ALL REGISTERS 
PUSH D В 
PUSH H ; 
PUSH PSW ҙ 
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258010: 


058020: 


058030; 


058040: 


056050: 


gs s s 


SPHEX: 


LDAX 
RRC 
RRC 
RRC 
RRC 
ANI 
LXI 
ADD 
MOV 
MVI 
ADC 
MOV 
LDAX 
MOV 
INX 
LDAX 
ANI 
LXI 
ADD 
MOV 
MVI 
ADC 


D,PCl 
H,PCH*2 
DSPHEX 
D,PCl*1 
H,PCH 
DSPHEX 


D,STKPTR 


H,SPH*2 
DSPHEX 


D,STKPTR 


H,SPH 
DSPHEX 
D,BC 
H,BCH*2 
DS PHEX 
D,BC4l 
H,BCH 
DSPHEX 
D,DE 

H, DEH+2 
DS PHEX 
D, DE+1 
H, DEH 
DSPHEX 
D, HL 

H, HLH+2 
DS PHEX 
D,HL41 
H, HLE 
DSPHEX 
D,AC 
Н,АССН 
DSPHEX 
STSWRD 
H,CYB 


м,'0' 
258010 
м, '1' 


H,PB 
м,'0' 
058020 
м, 11 ' 


H,ACB 
м," 
058030 
м,'1' 


H,ZB 
м," 
258040 


М," 


H,SB 
м, 
258050 
DEC 
PSW 


PSW 
D,AC 
H,ACCB 
DSPBIN 
D,BC 
H,BCB+9 
DSPBIN 
D,BC+1 
H,BCB 
DSPBIN 
D,DE 

H, DEB+9 
DSPBIN 
D, DE+1 
H, DEB 
DS PBIN 
D, HL 

H, HLB+9 
DSPBIN 
р, HL+1 
H, HLB 
DSPBIN 
PSW 

H 

D 

B 


D 


o 

т 
r= 
о 
о 
- 
- 


, 


о» 


>> 


r= 
a 
a 
- 
- 


o» 


m»oomooOrzzxuocuU»onou 


E 3 


-€—— Fae we 


CHECK FOR BINARY DISPLAY FLAG SET 


ONE IF NOT SET 


В 
2 
4 
B 
i 
i 
П 
i 
i 
і 
2 
i 
4 


DECODE REGISTERS FOR DISPLAY ROUTINE 


;GET REGISTER CONTENTS 
;SCALE ACCUMULATOR DOWN TO GET UPPER HEX DIGIT 


;MASK OFF UNWANTED BITS 
;BASE ADDRESS OF ASCIIDIGIT TABLE 
7ADD ACCUMULATOR TO BC TO GET ADDRESS OF DIGIT 


;STORE ASCII CODE FOR HEX DIGIT 

; INCREMENT SCREEN POSITION 

СЕТ REGISTER CONTENTS AGAIN 

ФО THE SAME FOR THE LOWER HEX DIGIT 
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> > 


DECODE REGISTER TO BINARY DISPLAY ROUTINE 


DSPBIN: LDAX 
MVI 
RAL 
MVI 
JNC 
MVI 
INX 
DCR 
JNZ 
RET 


DSP010: 


05Р020: 


i 


D СЕТ USER REGISTER CONTENTS 
c,8 7# OF BITS 
¿SHIFT UPPER BIT TO CARRY FOR CHECKING 


M,'0' ; ASSUME ZERO 
DSP020 ;СНЕСК FOR ONE 
M,'1' ;CHANGE IF ONE 
H ;MOVE TO NEXT SCREEN POSITION 
c ;COUNT OFF 
05Р010  ;DONE? 
;YES 


¿SIMULATOR CODE BEGINS HERE 


; ONE 8080 INSTRUCTION 


STEP: LHLD 
SHLD 
MOV 
CPI 
JC 
CPI 
JNC 
CALL 
RET 
CALL 
RET 
CPI 
JNC 
CALL 
RET 
CALL 
RET 


STP010: 


5ТР020: 


РЕХЕС: ІХІ 

DAD 
SHLD 
LHLD 
PUSH 
POP 
LHLD 
SPHL 
LHLD 
MOV 
MOV 
LHLD 
XCHG 
LHLD 
INSTR: 05 

SHLD 
PUSH 
POP 

SHLD 
LXI 

DAD 

SHLD 
XCHG 
SHLD 
LHLD 
SPHL 
MOV 
MOV 

SHLD 
RET 


govs 


OVE: MOV 
ANI 
МУІ 
MOV 
LXI 
DAD 
MOV 
STA 
MOV 
RRC 
RRC 
RRC 
ANI 
MOV 
LXI 
DAD 
MOV 
STA 
MOV 
MVI 
CALL 
LXI 
LXI 
LXI 
CALL 
CALL 
RET 


ARITHMETIC 


>. 


RITH: МОУ 
LXI 
ANI 
MVI 
MOV 
DAD 
PUSH 
MOV 
ANI 
LXI 
MOV 
DAD 
MOV 
POP 
MVI 
DAD 
MOV 


MOV COMMAND EXECUTION 


AS INDICATED BY THE USER'S PC REGISTER 
PC СЕТ USER'S PROGRAM COUNTER VALUE 


Pcl ;SAVE FOR LAGGING DISPLAY 
A,M ;GET THE CONTENTS OF MEMORY LOCATION INDICATED 
40H ;CHECK FOR CODES 0-3F HEX 
5ТР010 ;LOW ORDER 64 OPCODES? 
80H ;NO, CHECK FOR 40-7F HEX 
STP020 ;І5 A REGISTER TO REGISTER MOVE INSTRUCTION? 
MOVE ;YES, EXECUTE IT 
;RETURN TO MONITOR 
OPLOW ;LOW ORDER OP CODES 
;RETURN TO MONITOR 
осон ;CHECK FOR 80-BF HEX 
STP030 ;АВТНМЕТІС INSTRUCTION? 
ARITH ;YES, EXECUTE 
;RETURN TO MONITOR 
OPHIGH  ;HIGH ORDER OP CODE 


;RETURN TO MONITOR 


EXECUTE INSTRUCTION ROUTINE 


H,0 
SP 
STKTMP 
STONRD ‚ ;LOAD REAL REGISTERS WITH USER'S DATA 


;SAVE MONITOR'S STACK POINTER 


PSW 
STKPTR 


HL 

3 ;INSTRUCTION TO BE EXECUTED IS STORED HERE 
; IF IT WILL NOT CAUSE LOSS OF CONTROL 

HL ¿SAVE USER REGISTER VALUES 

PSW 

H 

STSWRD 

н,0 

SP 

STKPTR ; 


DE 
STKTMP ;СЕТ MONITOR'S STACK POINTER 
H,B 
г/с 
BC 


ROUTINE 


В,А ;SAVE ОР CODE 
07H ;DECODE SOURCE REGISTER 
0,0 f 
E,A ? 
H,RGSTRS i 
D 4 
А,М ;GET REGISTER NAME 
MOVENM+6 ;SET UP NMEUMONIC 
A,B ;RESTORE OP CODE 
i 
i 
i 
07H ;DO SAME FOR DESTINATION REGISTER 
Е,А ; 
H,RGSTRS i 
D i 
A,M ; 
MOVENM+4 i 
A,B ; 
B,l ;* OF BYTES IN INSTRUCTION 
MVINST ;СОРҮ INSTRUCTION INTO EXECUTION AREA 
H, INSTA ;DISPLAY NMEUMONIC 
B,MOVENM H 
D,8 ; 
БЕТІМЕ 
ОРЕХЕС О EXECUTE INSTRUCTION 


;DONE, 


INSTRUCTION EXECUTION ROUTINE 


В,А ;SAVE OP CODE 

H,ARITHN ;GET ADDRESS OF ARITH NMEUMONICS 
38H ISOLATE REGISTER OPERAND 

D,0 4 

Е,А ; 

D ;ADD INDEX TO GET APPROPRIATE NMEUMONIC 
H AVE TEMPORARILY 

A,B ;RESTORE OPCODE 

07H ;ISOLATE REGISTER OPERAND $ . 

H,RGSTRS ;GET REGISTER NAME LIST ADDRESS 
Е,А ; 

D ;ADD INDEX TO GET CORRECT REGISTER NMEUMONIC 
A,M СЕТ NMEUMONIC 

H ;RETRIEVE INSTRUCTION NMEUMONIC ADDRESS 
E,4 t 

D i 

M,A 3МОУЕ REGISTER NAME TO MEMORY 
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DCX 
DCX 
MOV 
MVI 
CALL 
LXI 
LXI 
POP 
CALL 
CALL 
RET 


i 
¡ARITHMETIC INSTRUCTION 


i 

ARITHN: DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 


OP CODES 0-3Ғ 
OPLOW: MOV 
ANI 
RLC 
MOV 
MVI 
LXI 
DAD 
MOV 
MOV 
INX 
MOV 
XCHG 
PCHL 


LOW ORDER INSTRUCTION 


SP i 

SP В 

А,В ;RESTORE OP CODE 

B,l ;SET # OF BYTES IN OPCODE 

MVINST ;МОУЕ INSTRUCTION TO EXECUTION AREA 
H,INSTA ;DISPLAY NMEUMONIC 

D,8 ; 

B i 

SETLNE ; 

OPEXEC ;60 EXECUTE INSTRUCTION 


NMEUMONICS 


'ADD 4 ;ADD REGISTER TO ACCUMULATOR 
'ADC d ;ADD REGISTER+CARRY TO ACCUMULATOR 
"SUB d ;SUB REGISTER FROM ACCUMULATOR 
'SBB М ;SUB REGISTER*CARRY FROM ACCUMULATOR 
"ANA d ;LOGICAL AND REGISTER WITH ACCUMULATOR 
"ХВА М ;LOGICAL EXCLUSIVE OR REGISTER WITH ACCU 
'ORA , ;LOGICAL OR REGISTER WITH ACCUMULATOR 
'CMP ы ;COMPARE REGISTER WITH ACCUMULATOR 

EXECUTION ROUINE 
HEX 
Е,А ;SAVE OP CODE 
078 ¿DETERMINE CLASS AND BRANCH TO APPRPRIATE ROUTINE 
С,А А 
B,0 ; 
H,OPTAB ; 
B i 
A,E H 
E,M H 
H ; 
D,M ; 

4 


ОР CODE SIMULATION ROUTINE LOOKUP TABLE 


; 

; 

i 

OPTAB: DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 


А=ОР CODE, B= 


z~~ 


VINST: STA 

PUSH 
CALL 
MOV 

MOV 
SHLD 
POP 
LXI 

MVI 

STAX 
STA 
MVI 

MOV 

SHLD 
SHLD 
LXI 

SHLD 
LHLD 
INX 
DCR 
JZ 

MOV 
INX 
STAX 
INX 

PUSH 
PUSH 
PUSH 
CALL 
LHLD 
MOV 
INX 
MOV 
INX 
SHLD 
POP 

POP 
POP 
JMP 
SHLD 
RET 


MVIO10: 


MVIO20: 


MOVE NMUMONIC 


MVNMNC: LXI 
PUSH 
LXI 
CALL 
POP 
MVI 
MOV 
INX 
MOV 
INX 
MOV 
INX 
MOV 
RET 


ANI 
RRC 
RRC 


СЕТ010: 


NPINST H 
LXIDAD LXI & DAD ROUTINE POINTER 


NO-OP ROUTINE POINTER 


LDSTRX ; LDAX & STAX ROUTIN POINTER 
INXDCX ;ІМХ & DCX ROUTINE POINTER 
INRDCR ; INR & DCR ROUTINE POINTER 
INRDCR ; SAME 

MVIMM } MVI ROUTINE POINTER 

ROTATE ; ROTATE POINTER 

NO. OF BYTES 

INSTR ¿STORE OP CODE TO EXECUTION AREA 


B ;SAVE NUMBER OF BYTES IN OP CODE 


HEXASC ;CONVERT OP CODE TO ASCII/HEX EQUIVALANT 
H,C i TRANSFER FOR DOUBLE LENGTH STORE 

L,B f} 

INSTH ¿STORE ASCII CODES OF OP CODE TO VDM BUFFER 


B ;RETRIEVE NUMBER OF BYTES IN INSTRUCTION 
D,INSTR*1 ;GET ADDRESS OF NEXT LOCATION IN EXECUTI 


A,0 ;ZERO NEXT 2 BYTES IN EXECUTION AREA 

D i IN CASE INSTRUCTION<3 BYTES 

INSTR+2 ; 

He! * ;CLEAR PREVIOUS EXECUTION FROM SCREEN 

L,H Н 

INSTH*2 ; 

INSTH*4 ; 

H,INSTH*2 ;SET TO DISPLAY REST OF INSTRUCTION IF A 
STKTMP  ;SAVE VDM BUFFER LOCATION OF ASCII/HEX DISPLAY А 
PC ;GET USER'S PROGRAM COUNTER 

H ;UPDATE IT 

B ;COUNT OFF NUMBER OF BYTES IN INSTRUCTION 

МУІ020 ;ЕХІТ IF DONE 

А,М СЕТ NEXT BYTE OF INSTRUCTION FROM USER'S PROGRA 


H ;UPDATE USER'S PROGRAM COUNTER 

D ;STORE BYTE TO EXECUTION AREA 

D ;UPDATE EXECUTION BUFFER POINTER 

B ;SAVE NUMBER OF BYTES IN INSTRUCTION 
D ;SAVE EXECUTION BUFFER POINTER 

H ;SAVE USER'S PROGRAM COUNTER 


HEXASC  ;CONVERT NEXT BYTE OF INSTRUCTION TO ASCII/HEX С 
STKTMP ;RETRIEVE VDM BUFFER LOCATIN OF ASCII/HEX DISPLA 
M,B ;MOVE ASCII/HEX CODES OF CURRENT INSTRUCTION BYT 
H H TO VDM BUFFER AREA 
M,C H 
H ; 
STKTMP ;SAVE VDM BUFFER LOCATION AGAIN 
H ¿RETRIEVE USER'S PROGRAM COUNTER 
D ;RETRIEVE EXECUTION BUFFER POINTER 

;RETRIEVE NUMBER OF BYTES LEFT IN INSTRUCTION 
MVIO10 ¿CONTINUE UNTIL ALL BYTES MOVED 
PC ¿STORE UPDATED USER'S PROGRAM COUNTER 

;EXIT 
TO BUFFER 
H,INSTA ;GET VDM BUFFER LOCATION OF MNEUMONIC DISPLAY AR 


D ;SAVE D REGISTER 


D,4 ;SET NUMBER OF BYTES TO TRANSFER 

БЕТІМЕ ;DO TRANSFER 

B ;GET OLD D REGISTER 

D4* |! ;THE FOLLOWING CODE MOVES THE ASCII CHARACTERS O 
M,D ; THE REGISTERS USED BY THE INSTRUCTION TO THE 
H А THE VDM BUFFER AREA 

M,C ; 

H і 

M,B ; 

H i 

M,D ; 


СЕТ REGISTER PAIR ROUTINE 


30H ¡MASK REGISTER PAIR FIELD 
CALE FOR INDEXING 

; 
Е,А ;BUILD INDEX IN DE 
р,0 ; 
Н, ВЕСРАВ СЕТ BASE ADDRESS OF REG PAIR MNEUMONICS 
D ;ADD INDEX 
СЕТО10+1 ;SAVE POINTER 
0 ;0 IS REPLACED BY POINTER FROM ABOVE 
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Dynatrace, contd... noy 524 180552506 ADDRESS FOR SUBROUTINE CALL 
LXI D,' ' ;SET REGISTER TO NULL 


CALL MVNMNC  ;DISPLAY OP CODE 


жена — Л ROUTINE CALL САШ. OPEXEC ;EXECUTE INSTRUCTION 
RET ; NET P 
; 5 
| i 
[куйса ырп ити ; GET REGISTER ROUTINE 
i Қ 
5 i 
SPIMETSO. WI - FAEN IHTRUCKION DENGUH GETREG: ANI 38H ;ISOLATE REGISTER DESIGNATOR BITS 
CALL МУІМЅТ ;МОУЕ INSTRUCTION TO EXECUTION AREA RAG шайнай 
LXI D,' ' МО REGISTER DATA pos i 
ЕКІ. HUMOR ТАРПЫНАН ОР COP SU HRUMOMIC MOV E,A ;CONSTRUCT INDEX WORD 
MVI р,0 ; 
CALL (ОВБХЕС (ЕЖЕСІЛЕ, INSTRUCTION LXI H, RGSTRS СЕТ BASE ADDRESS OF REGISTER CODES 
А ; DAD D ;ADD INDEX 
P MVI E,' ' ;OTHER REGISTER IS NULL 
і EXECUTE LXI AND DAD INSTRUCTIONS ROUTINE NOT бін 1СЕТ THIS REGISTER 
LXIDAD: MOV B,A ;SAVE INSTRUCTION CALL МУММАС ;DISPLAY OP CODE AND REGISTER 
3 RET i 
ANI 08H ;ISOLATE LXI/DAD BIT " в е Mas: 
моу А,В ;RESTORE INSTRUCTION PONO. DE ura. PME РЕ " SEND ED 
мот at Си ОР1: DB LXI ' ;LOAD REGISTER PAIR IMMEDIATE( ) 
JNZ LXIO10 ;DAD OR LXI? DB "DAD ' ;DOUBLE LENGTH ADD 
} LOWOP2: DB 'STAX' ;STORE ACCUMULATOR INDIRECT THROUGH REG PAIR 
MVI B,3 ;LXI, CHANGE INSTRUCTION LENGTH TO 3 BYTES 
LXI010: PUSH PSW ;SAVE INSTRUCTION DESIGNATOR WHICH IS THE ZERO F pa БАҚ, Ар ES AUAA TOR AMDIRECT. THROUGH REG ERIR 
CALL МУІМ5Т ;DISPLAY OP CODE ӨНЕР; затове BLOD 
POP PSW ;RETRIEVE FLAG DB 2800) — ;LOAD HL DIRECT 
du B LONGPITA ҚА Арқа DB 'STA ' ;5ТОВЕ ACCUMULATOR DIRECT 
Ns EXF020 тар Ақт? DB "LDA ' ¿LOAD ACCUMULATOR DIRECT 
Miss БОНО ВИНЕ LOWOP3: DB 'INX ' ;INCREMENT REGISTER PAIR 
LXI020: CALL — GETRP  ;ISOLATE REG PAIR De (DEX | TDECREMEUT REGISTER PAIR 
D 4E О сн LOWOP4: DB ‘INR ' ;INCREMENT REGISTER 
noe ; LOWOPS: DB "DCR ' ;DECREMENT REGISTER 
А Ц LOWOP6: DB 'MVI ' УМОУЕ DATA IMMEDIATE TO REGISTER 
t LOWOP7: DB 'RLC ' ;ROTATE LEFT THROUGH CARRY 
; LDA STA LDAX STAX SHLD LHLD EXECUTION ROUTINE Db 'RRC ' ;ROTATE RIGHT THROUGH CARRY 
i . М 
LDSTRX: MOV С,А ;SAVE INSTRUCTION pa ЖАГ р ТЕ ЕС ME 
ANI 20H ;ISOLATE (LDX,STX)/(LHLD,SHLD,LDA,STA) BIT . ж 74 UST ACCUMULATOR 
MOV A,C ;RESTORE INSTRUCTION ра A. POEM 
к? 105020 ; (LDX,STX) / (LHLD, SHLD, LDA, STA) ? DE VER v ep CAU MCGUNULATOR 
ANI 08H ;ISOLATE LDX/STX BIT БВ SCHO it. CCDMBEIMERTUICARRY 
MOV AC J RESTORE, INSTRUCTION RGSTRS: DB "BCDEHLMA' ;REGISTER CODES 
MVI в,1 ;INSTRUCTION LENGTH IS 1 FOR BOTH REGPAM.. Da "B У Н 
PUSH PSW ;SAVE DESIGNATOR ВІТ ы (D ВВВ JREGISTER PAIR CODES CODES 
CALL  MVINST ;MOVE INSTRUCTION TO EXECUTION AREA РАО (ра MET, НО POPERUN (STATUS ELANG 
POP PSW ¿RETRIEVE DESIGNATOR BIT М 
LXI B,LOWOP2 ;ASSUME STAX Ы 
22 105010 ;STAX/LDAX? K " Р 
LXI B, LOWOP2+4 ;LDAX, CHANGE MNEUMONIC POINTER кери БЕН е "БАКЕ БЕ БОВЕ 
105010: CALL | СЕТВР  ;DETERMINE REGISTER PAIR KEYOUb: IN KETAT GHECK 3P4S STATUS 
JMP LDS030 ;60 EXECUTE “aN KBDRDY ';LOOK FOR KEY BOARD READY 
105020: MVI B,3 ; (LHLD,SHLD,LDA,STA), SET LENGTH ТО 3 BYTES ^ REOS: LOUE TON НОТА сч, АА 
CALL  MVINST ;MOVE INSTRUCTION TO EXECUTION AREA Р em 
AOV АС S RESTORE INSIRUCIIOR IN KEYBRD ;GET DATA FROM ASCII KEYBO 
ANI 18H ;ISOLATE INSTRUCTION DESIGNATOR FSTRIP. ОРУ PARITY ВІТ 
RRC ;SCALE FOR INDEXING poy BA ISAVBICHARAGTER 
pes ER sores тов 2 CPI ESC ;CHECK FOR ESCAPE SEQUENCE 
ноу 5/5 : JNZ KEY007 ;WAS IT? 
| LXI SP, STACK ;YES, RESET STACK POINTER 
LXI ИЩ тн бЁТ BASE ADDRESS OF INSTRUCTION GROUP CALL: Ене еб и 
немі BH TOS IPION FORJCALE, JMP VDMOl5 ;RESUME SCAN LOOP 
MOV ci ; КЕҮ007: CPI CR ;CHECK FOR CARRIAGE RETURN 
ЖЕСІ JZ KEY020 ;МАЅ IT 
chi Dh uc РАВ ТҮРЕ TO ИШСЕ КЕҮ010: MOV М,А ;NO, DISPLAY CHARACTER 
Я 5 NX H ;UPDATE CURSER 
LDS030: CALL ОРЕХЕС ;EXECUTE INSTRUCTION NOV At SCHECK РОВ VDM BUFFER OVERFLOW 
2 5 СРІ TOS AND OFFH 3 
i Jc КЕҮ030 ; 
} INX DCX EXECUTION ROUTINE КЕҮ020: CALL BMPLNE ;SCROLL UP ON BUFFER FULL 
i | LXI H, LINE15 RESET CURSOR TO BEGINNING OF LAST LINE 
INXDCX: pd = JENNI INSTRUCTION aye КЕҮ030: MOV A,B ;RESTORE CHARATER RECEIVED FROM KEYBOARD 
е i 
CALL — MVINST ;МОУЕ INSTRUCTION TO EXECUTION AREA SHED: РОБІТ. ATORE UPDATED CURBUR 
MOV AG IRESTORE INSTRUCTION POP H RESTORE ORIGINAL CONTENTS OF HL 
PUSH Рби ¡SAVE IT AGAIN | RET ; 
ANI 08H ;ISOLATE DESIGNATOR BIT i 
LXI B, LOWOP3 ;ASSUME INX i 
JZ ІМХ010 ;INX/DCX? d 
LXI B, LOWOP3+4 ;DCX, CHAINGE POINTER BMPLNE: PUSH Н ;SAVE HL 
INX010: POP PSW ;GET INSTRUCTION BACK PCR Б E pE 
CALL  GETRP ;DETERMINE REG PAIR i 
CALL ^ OPEXEC ;EXECUTE INSTRUCTION PUSH Р5и ISAVE PSW 
MET 1 LXI H,MIDSCR ;BUFFER ADDRESS TO MOVE OLD DATA TO 
3 LXI B,MIDSCR+LINE ;BUFFER ADDRESS TO GET OLD DATA FROM 
 —— Ж MVI Е, 8 ;NUMBER OF LINES TO BE SCROLLED 
ч ЖЕСОТТОЙ ROUTINE ВМР010: PUSH р ;SAVE 
; LXI 2,64 NUMBER OF CHARACTERS PER LINE 
INRDCR: noy Hs TORVE E ARE, MEI E BYTE CALL БЕТІМЕ ;SCROLL ONE LINE AT A TIME FROM THE TOP DOWN 
z ; РОР ; 
CALL МУІМЅТ ;МОУЕ INSTRUCTION TO EXECUTION AREA DCR 8 PUE OPE СЕ CINES LEFT TOGO 
MOV A,C ;RESTORE INSTRUCTION JNZ BMPOl0 ;DO UNTIL DONE 
рта ер САУ LT АСМ. TUR MVI A,' '  ;STE TO SPACE OUT LAST LINE 
ЕЗІ Br саралы pAAPSUMB TNR... MVI 0,64  ;BLANK OUT ALL CHARACTERS ON LAST LINE 
a еее ее LXI H, LINE15 СЕТ ADDRESS OF FIRST CHARACTER OF LAST 
3 ? BMP020: MOV M,A ;BLANK IT OUT 
LXI B, LOWOP S ;DCR, CHANGE POINTER тих * T UBDATE POYNTER 
INRO10: LDA STKTMP ;GET INSTRUCTION BACK DCR Б 8 CUNT. боны 
CALL СЕТВЕС ;DETERMINE REGISTER 598 BNEOSQ. Jp WHIDEHNOT DONE 
CALL OPEXEC ;EXECUTE INSTRUCTION LXI H LINElS' ;RESET CURSOR 
RET ; f ^ 
; ; SHLD  CPOSIT ; 
; POP PSW ;RESTORE ORIGINAL REGISTER CONTENTS 
i MVI EXECUTION ROUTINE POP Ё 1 
; Pi 5 
MVIMM: MOV С,А ;SAVE INSTRUCTION рор р d 
MVI 8,2 ;THESE ARE ALL 2 BYTE INSTRUCTIONS RET x 
CALL МУІМЅТ ;MOVE INSTRUCTION TO EXECUTION AREA Я ^ 
MOV A,C ;RESTORE INSTRUCTION А 
LXI B , LOWOP6 ;SET POINTER MVI MNEUMONIC d 
; в 
се Се дем ының BINARY: LDA BINFLG ;СЕТ BINARY DISPLAY FLAG 
САБ ; CMA ;TOGGLE IT 
А ; STA BINFLG ;РИТ IT BACK 
2 ІС RRC PAL RAR DAR CHA STCYCHO CALL ^ CLRSCR ;RESET SCREEN 
+ Ci . 
; EXECUTION ROUTINE eon Шы: 
Д 1 H 
ROTATE: MOV С,А ;SAVE INSTRUCTION ; 
MVI в,1 ;THESE ARE ALL ONE BYTE INSTRUCTIONS ; 
CALL MVINST ;МОУЕ INSTRUCTION TO EXECUTION AREA GTLMTS: CALL BMPLNE ;SCROLL UP 
MOV A,C ;RESTORE INSTRUCTION LXI B,FROM ;DISPLAY FROM MESSAGE 
ANI 38H ;ISOLATE DESIGNATOR BITS LXI H, LINE15 ; 
RRC ;SCALE FOR INDEXING LXI D,5 ; 
моу Е,А ;CONSTRUCT INDEX CALL SETLNE ; 
MVI р,0 ; LXI H, LINE15+5 ; 
LXI H, LOWOP7 СЕТ BASE OF ADDRESS ОҒ MNEUMONICS SHLD СРОЅІТ ; 
DAD D ;ADD INDEX CALL СЕТАРА ;СЕТ ONE HEX NUMBER OF UP TO 4 DIGITS 


28 5-100 MICROSYSTEMS 


SHLD BASE ;THAT WAS THE BASE ADDRESS 
CALL BMPLNE ;SCROLL UP 
LXI B,TO ;DISPLAY TO MESSAGE 
LXI H, LINE15 H 
LXI D,3 ; 
CALL БЕТІМЕ ; 
LXI H, LINE15+3 ; 
SHLD CPOSIT ; 
CALL GETADR ;СЕТ ONE HEX NUMBER 
XCHG ;MOVE TO DE 
LHLD BASE СЕТ BASE ADDRESS 
CALL BMPLNE ;SCROLL UP 
RET ; 
i 
i 
DUMPME: CALL GTLMTS ;GET DUMP LIMITS 
DMPO10: PUSH D ;SAVE LAST ADDRESS 
CALL DMEM16  ;DISPLAY 16 BYTES 
POP D ;GET LAST ADDRESS 
MOV A,E ;SEE IF LAST ADDRESS EXCEEDED 
SUB L H 
MOV A,D ; 
SBB H ; 
JP DMP010 ;CONTINUE DUMPING IF NOT 
RET i 
i 
GETBYT: MVI E,2 ;GET TWO CHARACTERS FROM KEY BOARD 
JMP GTAO05 ;GO AROUND NEXT ENTRY POINT 
GETADR: MVI E,4 ;GET 4 CHARACTERSFROM KEYBOARD 
GTAOOS: LXI н,0 ;START WITH ZERO 
СТА010: CALL KEYBDI  ;GET ACHARACTER FROM THE KEYBOARD 
CPI CR ;CHECK FOR TERMINATOR 
JZ GTA020 ;ЕХІТ ОМ END OF NUMBER 
CALL ASCHEX  ;CONVERT CHARACTER TO HEX DIGIT 
MOV С,А ;POISITION FOR ADD 
MVI B,0 4 
DAD H ;MULTIPLY HL BY 16 
DAD H i 
DAD H 2 
DAD H Я 
DAD B АБР LAST CHARACTER RECIEVED 
DCR E ;COUNT OFF NUMBER OF DIGITS 
JNZ СТА010 ;DO UNTIL COUNT EXAUSTED OR CARRIAGE RETURN 
СТА020: RET H 
; 
2 
ASCHEX: SBI 4: ;SUBTRACT OFF ASCII BIAS 
JM ASCO10  ;CHAR«0? 
CPI 10 ;NO, 
RC ;DONE IF CHAR<=9 
SBI 07H ;ADJUST FOR ALPHA BIAS 
CPI LF В 
Jc ASCO10 ; 
CPI 10H ;CHAR»O0FH? 
RC 7NO, RETURN 
ASCOl10: MVI А,0 ;RETURN ZERO IF ILLEAGLE 
RET ; 
; 
;DUMP 16 BYTES TO TTY 
; 
DMEM16: MOV A,L DISPLAY ADDRESS 
CALL HEXASC ; 
PUSH B H 
MOV А,Н i 
CALL HEXASC ; 
LXI D,LINE15 ; 
XCHG H 
MOV M,B ; 
INX H ; 
MOV M,C ; 
INX H ; 
POP B ; 
MOV M,B ; 
INX H ; 
MOV M,C 3 
MVI B,16 ;NUMBER OF BYTES TO DISPLAY 
DME010: PUSH B ;SAVE 
INX H ;UPDATE ADDRESS 
LDAX D ;GET BYTE FROM MEMORY 
INX D ;UPDATE POINTER 
CALL HEXASC  ;CONVERT TO ASCII CHARACTERS AND DISPLAY 
INX H ; 
моу M,B ; 
INX H і 
MOV M,C ; 
POP B Н 
DCR B В 
JN2 DMEO10 ;00 UNTIL ALL 16 DISPLAYED 
CALL BMPLNE ;SCROLL UP 
XcHG П 
КЕТ В 


і 
;CONVERT BYTE IN ACCUMULATOR TO ASCII DIGITS 


4 

HEXASC: PUSH 
PUSH 
LXI 
MOV 
ANI 
MOV 
MVI 
DAD 
MOV 
MOV 
ANI 
RRC 
RRC 
RRC 
RRC 
MOV 
LXI 
DAD 
MOV 
POP 
POP 
RET 


oQ»oococpmourzzuzu 


T 


;SAVE DE 
;SAVE HL 

;GET BASE ADDRESS OF ASCII CODE 
;SAVE DATA 

ФО LOWER HEX DIGIT FIRST 

;SET UP FOR INDEXING 


; 

;ADD INDEX 

;GET CHARACTER 

;RESTORE DATA 

;DO UPPER HEX DIGIT 
;SCALE DOWN FOR INDEXING 


БЕТ UP FOR INDEXING 

;GET BASE ADDRESS OF ASCII CODES AGAIN 
;ADD INDEX 

;GET CHARACTER 

;RESTORE HL 

;RESTORE DE 


; 
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;LOAD REGISTERS FROM KEYBOARD ROUTINE 


LOADRG: 


LOA010: 


104020: 


LOA030: 


LDREGS: 


CALL 
LXI 
MVI 
MOV 
MOV 
CMP 
22 
INX 
DCR 
JNZ 
RET 
MOV 
DCR 
RLC 
MOV 
MVI 
PUSH 
CALL 
XCHG 
POP 
MOV 
ANA 
JNZ 
PUSH 
LXI 
DAD 
MOV 
INX 
MOV 
POP 
LXI 
DAD 
MOV 
INX 
MOV 
CALL 
RET 
DB 


KEYBDI 
H,LDREGS 


>> 


Е 


3 
» 
о 
т 


'AHDBSP' 


;GET REGISTER IDENTIFIER 
;DETERMINE SELECTED REGISTER 
;6 POSSIBLE REGISTER PAIRS 
¿SAVE REGISTER DESIGNATOR 
СЕТ ONE FROM MEMORY 
;CHECK AGAINST SELECTED REGISTER PAIR 
;MATCH 
;NO, KEEP LOOKING 


;RETURN IF NOT FOUND 
;GET INDEX NUMBER 
;ADJUST 

;SCALE 

;SET UP INDEX 


¡SAVE INDEX 
СЕТ A HEX NUMBER FROM KEYBOARD 


;RELOCATE NUMBER TO LESS CONVENIENT REGISTER 


;GET INDEX BACK 

;MOVE TO ACCUMULATOR 

;SET FLAGS 

;1S IT THE PC REGISTER? 

;YES, 

СЕТ ADDRESS OF USER'S PC REG 
;THIS IS REDUNDANT 

TORE DATA TO USER'S PC REGISTER 


STORE DATE TO USER REGISTER 


4 
i 
; 
2 
i 
2 
В 
2 
П 


;POSSIBLE REGISTER DESIGNATIONS 


; 
;STORE DATA TO MEMORY ROUTINE 


2 
MEMSTR: 
MEMO10: 


МЕМ020: 


CALL 
PUSH 
LHLD 
MVI 
MOV 
INX 
SHLD 
CALL 
MOV 
CPI 
JNZ 
POP 
RET 
MOV 
POP 
MOV 
INX 
JMP 


GETADR 
H 
CPOSIT 
А, '-' 
M,A 

H 
CPOSIT 
GETBYT 
A,E 

2 
МЕМ020 
H 


A,L 
H 

M,A 

H 
МЕМ010 


i 
;CALL USER SUBROUTINE 


CALSUB: 


нр 
MVI 
MOV 
INX 
SHLD 
MVI 
STA 
CALL 
SHLD 
CALL 
CALL 
CALL 
CALL 
RET 


;HIGH ORDER 


H 
OPHIGH: 


i 
HOPTAB: 


Д 
НІСНОР: 
НІНОР1: 


НІНОР2: 
HIHOP3: 


HIHOP4: 
НІНОР5: 


НІНОР6: 


MOV 
ANI 
RLC 
MOV 
MVI 
LXI 
DAD 
MOV 
MOV 
INX 
MOV 
XCHG 
PCHL 


CPOSIT 
А,'-' 
М,А 

H 
CPOSIT 
A,0CDH 
INSTR 
GETADR 
INSTR+1 
BMPLNE 
OPEXEC 
CLRSCR 
SETSCR 


INSTRUCTION 


PSINST 


IMMEDT 
RESTRT 


“8 D 
"рор ' 
‘RET ' 
' *NOP* 
'PCHL' 
'SPHL' 
41 ' 
‘gmp ' 
' *NOP* 
"от! 


;GET BEGINNING ADDRESS 
¿SAVE IT 

;GET CURSOR POSITION 
;DISPLAY PROMPT 


i 

; UPDATE CURSOR 

;RESTORE UPDATED CURSOR 

;GET А DATA BYTE 

¿GET NUMBER OF BYTES RECIEVED 
;CHECK FOR NONE RECIEVED 

;ANY DATA RECIEVED? 

МО, RESTORE HL 

;GET OUT OF HERE 

;MOVE DATA BYTE TO ACCUMULATOR 
;GET ADDRESS BACK 

;STORE DATA TO MEMORY 

;UPDATE ADDRESS 

; CONTINUE 


;GET CURSOE POSITION 
;DISPLAY PROMPT 


4 

;UPDATE CURSOR POSITION 

;RESTORE CURSOR 

;LOAD ACCUMULATOR WITH A CALL INSTRUCTION 
;MOVE TO EXECUTION AREA 

;GET ADDRESS OF SUBROUTINE TO BE EXECUTED 
;STORE ADDRESS TO EXECUTION AREA PLUS ONE 
;SCROLL UP 

;EXECUTE SUBROUTINE 

;CLEAR ANY GARBAGE FROM SCREEN 

;SET UPSCREEN AGAIN 


DECODE ROUTINE 


;SAVE INSTRUCTION 
;DETERMINE SUB CLASS 
¿SCALE FOR INDEX 
;POSITION FOR INDEXING 


;GET HIGH ORDER INSTRUCTION TABLE BASE A 


;ADD INDEX 
;RESTORE INSTRUCTION 
;GET ADDRESS OF INSTRUCTION ROUTINE 


;MOVE TO HL 
;PASS CONTROL TO APPROPIATE ROUTINE 


¿RETURN 

; POP 
;JUMP 
;MISC 

; CALL 

; PUSH 
; IMMEDIATE 
¡RESTART 


CONDITIONAL RETURN 

; POP 

; UNCONDITIONAL ROUTINE 
;UNIMPLEMENTED OP CODES 
;INDIRECT JUMP 

¿LOAD STACK POINTER WITH HL 
;CONDITIONAL JUMP 
;UNCONDITIONAL JUMP 
;UNIMPLEMENTED OP CODE 

; OUTPUT 

;INPUT 

;EXCHANGE HL AND TOP OF STACK 
;EXCHANGE HL AND DE 
;DISABLE INTERRUPTS 

;ENABLE INTERRUPTS 
;CONDITIONAL CALL 

; PUSH 

;UNCONDITIONAL CALL 
;UNIMPLEMENTED OP CODE 

;ADD IMMEDIATE 
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DB 
DB 
DB 
DB 
DB 
DB 
DB 
HIHOP7: DB 


‘ACI ' 
'SUI ' 
‘SBI ' 
'ANI ' 
'XRI ' 
'ORI ' 
"CPI * 
"RST ' 


;DETERMINE CONDITIONAL F 


4 

GTFLAG: ANI 
PUSH 
RRC 
RRC 
MVI 
MOV 
LXI 
DAD 
MOV 
STAX 
INX 
INX 
MOV 
STAX 
LXI 
POP 
CALL 
RET 


; 
; 
i 
TSTFLG: ANI 
ORI 
STA 
LHLD 
PUSH 
POP 
MVI 


оОоо>шос»ошоо 


z 
$ 
= 
& 


TEST FLAG FOR CONDITION 


38H 
осон 
TSTO10 
STSWRD 
H 

PSW 
A,l 


'd CALL 
Dynat t RET 
. 
ynatrace, cont d.. "EE. 
;ADD IMMEDIATE WITH CARRY CALL 
;SUBTRACT IMMEDIATE CALL 
;SUBTRACT IMMEDIATE WITH BORROW OM 
;AND IMMEDIATE XSDE: и 
;EXCLUSIVE OR IMMEDIATE ALL 
;OR IMMEDIATE CAEN 
;COMPARE IMMEDIATE | 
PRESIAEE ; CONDITIONAL 
; 
БАС ROUTINE CLINST: PUSH 
;ISOLATE CONDITION BITS S 
;SAVE HL mi 
¡SCALE FOR INDEXING M 
3 LXI 
i 
;CONSTRUCT INDEX LXI 
ET BASE ADDRESS OF FLAG CODES CALL 
;ADD INDEX PP 
;GET FLAG CODE 
;STORE TO VDM BUFFER АНА 
;UPDATE POINTER | 
;UPDATE FLAG LOCATOR CALO10: тнр 
СЕТ SECOND CHARACTER OF FLAG à xene 
;DISPLAY IT ае 
;0THER CHARACTERS ARE BLANK MOV 
СЕТ OLD HL Hey 
iDISPLAY OP CODE ру 
d SHLD 
LHLD 
DCX 
;ISOLATE FLAG и 
;ASSEMBLE A RETURN ОМ CONDITION INSTRUCTION x 
;STORE FOR LATER EXECUTION рех 
СЕТ USER STATUS WORD NOV 
¡MOVE TO REAL FLAGS СТА 
Ы : 
Ke i 
;A=1 MEANS CONDITION TRUE ATA 


TSTO10: RET 
MVI 
RET 


A, 0 


і 
¿CONDITIONAL JUMPS 


;THIS IS REPLACED BY A CONDITIONAL RETURN А 
; і 
;CLEAR A IF CONDITION FALSE RETURN: PUSH 


‚ мут 
CALL 
POP 


; 

JUMP: нр РС СЕТ USER PROGRAM COUNTER Pu 
PUSH H ;SAVE IT LXI 
PUSH PSW ;SAVE PSW CALL 
MVI B,3 ;THIS IS 3 BYTES POP 
CALL MVINST ;МОУЕ INSTRUCTION TO EXECUTION AREA CALL 
POP PSW ;GET PSW BACK ANA 
PUSH PSW ;SAVE IT AGAIN RZ 
LXI H, НТНОР2 ;ADDRESS OF MNEUMONIC RETO10: LHLD 
LXI B,HIHOP241 ;ADDRESS TO PUT FLAG INTO MOV 
CALL GTFLAG ;WHAT CONDITION? STA 
POP PSW ;GET INSTRUCTION BACK INX 
CALL TSTFLG ;TEST CONDITION MOV 
POP H ;GET PC AGAIN STA 
ANA А ;CHECK RESULT OF FLAG TEST INX 
RZ ;RETURN IF RESULT WAS NEGATIVE SHLD 
INX H ;UPDATE PC RET 
MOV А,М СЕТ ADDRESS TO JUMP ТО ; 
STA PC ;AND STORE TO USER'S PROGRAM COUNTER ;MISCELAEOUS 
INX H ; A 
MOV А,М ; 5 1 
nor i е nm DB 

А ВЕТ ; PPINST: PUSH 

;THIS ROUTINE PROCESSES ALL IMMEDIATE MODE COMMANDS EST 

i 

IMMEDT: MOV С,А ;SAVE INSTRUCTION РОР010: x 
MVI B,2 ;ALL ARE 2 BYTES LXI 
CALL MVINST ;МОУЕ INSTRUCTION TO EXECUTION AREA CALL 
MOV A,C ;RSTORE INSTRUCTION POP 
ANI 38H ;DETERMINE TYPE OF IMMEDIATE INSTRUCTION PUSH 
RRC ¿SCALE FOR INDEXING ANI 
MOV E,A ;POSITION FOR INDEXING RRC 
MVI р,0 і RRC 
LXI Н,НІНОР6 СЕТ BASE ADDRESS OF IMMEDIATE CODES MOV 
DAD D ;ADD INDEX MVI 
MOV B,H ;POSITION FOR SUBROUTINE CALL LXI 
MOV с, ; DAD 
LXI р," ' ;ОТНЕВ CHARACTERS ARE BLANK MOV 
CALL MVNMNC  ;DISPLAY MNEUMONIC MOV 
CALL OPEXEC ;EXECUTE INSTRUCTION LXI 
RET i LXI 

; 

;MISCELANEOUS INSTRUCTIONS CALL 

i 

MISC: PUSH PSW ;SAVE INSTRUCTION CALL 
ANI 38H ;DETERMINE TYPE ст 
RRC ; ВЕТ 
MOV Е,А ; NOTPOP: POP 
MVI D,O ; CPI 
LXI H, HIHOP3 ; JNZ 
DAD D MVI 
MOV C,L ; CALL 
MOV B,H ; LXI 
LXI D' ' j LXI 
CALL MVNMNC ;DISPLAY CODE CALL 
POP PSW ¿GET INSTRUCTION JMP 
CPI 0E3H D NOTRET: CPI 
JNC XSDE ; JNZ 
CPI 0D 3H i MVI 
anc 10 D CALL 
CPI OCBH ; LXI 
JNC NOOP i LXI 
MVI B,3 i CALL 
CALL MVINST ; LHLD 
LHLD PC D SHLD 
DCX H В ВЕТ 
MOV AM ; NTSPHL: CPI 
STA РС+1 1 JN2 
DCX H ; МУІ 
MOV A,M і CALL 
STA PC i LXI 
RET i LXI 

NOOP: LXI В,НІНОР5%8 CALL 
LXI тот LXI 
CALL MVNMNC ; MOV 
MVI B,l А STA 
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MVINST 


B,2 
MVINST 
OPEXEC 


В,1 
MVINST 
OPEXEC 


CALL ROUTIN 


B,3 
MVINST 
PSW 

PSW 
H,HIHOP4 
B,HIHOP4 
GTFLAG 
ром 
TSTFLG 

A 


PC 
STKPTR 


RETURN 


PSW 
B,1 
MVINST 
PSW 
PSW 


E 


; 
жі ; 


H,HIGHOP В 
B,HIGHOP+1 4 


GTFLAG 
PSW 
TSTFLG 
A 


STKPTR 
A,M 

РС 

H 

A,M 
РС+1 

H 
STKPTR 


STACK INSRUCTIONS 


“в р 


PSW 

08H 
NOTPOP 
В,НІНОР1 


B,l 
MVINST 
OPEXEC 


PSW 

OC 9H 
NOTRET 
в,1 
МУІМ5Т 
В,НІНОР1 
па 
MVNMNC 
RETO10 


MVINST 
В, НТНОР1 


Н Р5И! ; 


4 


Ф se se se se se a 5e se чө se Se Ss ss t Se Se Ды se Se 


“ 
a 


12 


ыыы de e te ө ө те 


S-100 MICROSYSTEMS 


LHLD CPOSIT 
CALL BMPLNE 
CALL SETLNE 


INX н ; CALL BMPLNE 
MOV A,M ; ВЕТ 
ЗТА РС+1 ; i 
RET H ; 
; В 
;PUSH AND UNCONDIT і 
É IONAL CALL TAPEIN: MVI с,0 ; 
PSINST: PUSH PSW ; MVI A,0FFH ; 
ANI бен A OUT SWTCHS ; 
JNZ CALLUN ; BBLK: CALL INPUT ; 
LXI B,HIHOPS ; CPI ЗАН i 
JMP POPOlO ; guz вк ; 
CALLUN: POP PSW ; MVI B,0 ; 
CPI OCDH А CALL ВРВҮТЕ ; 
JNZ NOOP 4 MOV D,A ; 
LHLD PC H CALL RDBYTE ; 
PUSH H i MOV H,A ; 
MVI B,3 ; CALL ВОВҮТЕ ; 
CALL MVINST ; MOV L,A H 
LXI В,НІНОР5%4 4 CALL RDBYTE ; 
LXI D,' ' А MOV E,D 4 
LXI H, INSTA INR E ; 
CALL  MVNMNC LDA: DER E ; 
РОР в ЧО 1020 ; 
M , : 
. JMP CAL010 aed | 
;RESTARTS our SWTCHS ; 
; CALL — RDBYTE ; 
RESTRT: PUSH PSW ; Moy ЮА ; 
MVI B,l ; СМР M ; 
POP PSW ; тих p i 
PUSH PSW ; 92 1010 i 
ANI 38H í MVI с,20 ; 
RRC ; ВЕТ ; 
RRC Н 1020: MOV А,Н ; 
RRC ; СМА ; 
CALL BEXASC ; CAL ae : 
А ; 
"ov "E ' d MOV A,B ; 
LXI B, HIHOP7 ; OR ТО 
САШ. MVNMNC ; ; 
LHLD РС ; ps слон 2 
zem у NBLK: MOV A,D ; 
LHLD ^ STKPTR ; s d ; 
DCX H i ORA A ; 
MOV M,D А н? BBLK ; 
DCX H ; Б А БЕТ ; 
MOV M,E ; i 
SHLD STKPTR i i 
POP PSW ; i 
ANI 38H A RDBYTE: PUSH D ISAVE LENGTH 
MOV L,À : CALL INDIGT ;GET 1 HEX DIGIT FROM TAPE 
MVI н,0 i ADD ^ ;MULTIPLY BY 16 
SHLD PC ; ADD A ; 
ВЕТ ; ADD ^ ; 
i ADD А ; 
;THE GO ROUTINE CONTROL: MOV D,A iSAVE MSD 
А TROLS (SIMULATED EXEGUTION OP USER. PROGRAMS CALL  INDIGT ;СЕТ NEXT HEX DIGIT FROM TAPE 
бо: LHLD CPOSIT ; ORA D ;COMBINE HEX DIGITS TO FORM BYTE 
MVI Я" MOV D,A ;SAVE BYTE WHILE DOING CHKSUM 
MOV M,A ; ADD B ;ADD CHKSUM TO THE NEW BYTE 
INX н ; MOV В,А ;REPLACE OLD CHKSUM WITH NEW 
SHLD ^ CPOSIT ; MOV A,D ;GET NEW BYTE BACK 
CALL ^ GETADR ; POP D ;RESTORE LENGTH 
SHLD РС ; RET 
CALL ВМРІМЕ ; i 
LXI B,STPADR ; i 
LXI D,8 ; 3 
LXI H,LINE15 2 INDIGT: CALL INPUT ;READ A FRAME FROM TAPE 
CALL БЕТІМЕ ; CPI '9'4] INSPECT DATA 
LXI H,LINE15*8 ; JM 140010 ;ОК IF DATA < 10 
SHLD СРОЅІТ ; ADI 9 ;ELSE ADJUST FOR ASCII BIAS 
CALL GETADR ; IND010: ANI OFH REDUCE MOD 16 
CALL ВМРІМЕ ; RET ; 
XCHG ; ; 
60010: LHLD РС ; i 
MOV A.D А INPUT: ІМ RSTAT СЕТ READER STATUS FROM 3Р45 
SUB H ; АМТ RDRRDY ;TURN OFF NON READER BITS 
INZ G0020 ; INZ INPUT ;100Р UNTIL DATA AVAILABLE 
MOV A,E ; IN READER ;СЕТ DATA 
SUB L 4 ANI 7FH ;CLEAR PARITY BIT 
R2 H RET $ 
G0020: PUSH D i ; 
PUSH Н ; ;TAPE READER ROUTINE ERROR MESSAGES 
LHLD INSTSP ; ; 
60030: DCX H ; ERRMES: DB 'CHECK SUM ERROR ' 
MVI D,10H 4 рв "MEMORY FAILURE ' 
GO040: DCR D ; Б 
JNZ 60040 ; ;THIS ROUTINE ZEROES А BLOCK OF MEMORY 
MOV А,Н H H 
ANA A ; ZERMEM: CALL | GTLMTS ; 
эн? с0030 ; ZERO10: MVI A,0 H 
CALL STEP ў MOV М,А 3 
CALL DSREGS ; INX H ; 
РОР H ; MOV A,D ; 
РОР р ; SUB H ; 
IN KSTAT ; INZ ZER010 ; 
ANI KBDRDY ; MOV А,Е ; 
RZ ;REPLACE WITH RNZ FOR BOARDS WITH INVERTED I/O STATUS SUB L ; 
JMP 60010 ; JNZ ZERO1O ; 
STPADR: DB 'STOP AT-' ; ВЕТ ; 


i 
;THIS ROUTINE READS INTEL FORMAT TAPES 


SPEED: CALL KEYBDI 


i 
READTP: CALL BMPLNE 
CALL ASCHEX 


CALL TAPEIN 


і ; 
MOV A,C ; ADL їн ў 
в2 ; MO ‚А і 
MVI B,0 1 MVI L,0 р 
LXI 160, MVI AQOH o; 
= m AME 
А Н g Н 
LXI H, ERRMES ; SHLD INSTSP ; 
DAD B к CALL BMPLNE ; 
MOV B,H 4 ВЕТ ; 
MOV сы. ; INSTSP: DW 0400H  ; 

і 

і 

П 

‚ END 
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THE CP/M CONNECTION 


Chris Terry 


Part 1 - Interfacing To the Operating System: Relocating CP/M 


The CP/M system requires at least 16K of 
contiguous RAM for a minimal system. Page O is 
always reserved for entry points, file control 
blocks, and a 128-byte buffer used for command 
input from the console and as the default disk 
input/output buffer. Other buffer locations can be 
specified by an application program with a function 
call to BDOS. 

The CP/M system proper is always located at 
the top of the available memory; in the minimal 16K 
system distributed by most disk controller 
manufacturers, the CCP starts at 2900H and the 
CBIOS at ЗЕООН. When more memory becomes 
available, the system can be relocated to the top of 
the new memory, so as to leave more room in the 
Transient Program Area (TPA) for application 
programs and data. This feature makes CP/M 
extremely versatile, because the addressable 
memory area above the RAM block can be used for 
PROM containing I/O routines and utilities without 
conflicting in any way with the CP/M requirements. 

Four CP/M utilities are required for creating a 
relocated system and putting it on a fresh diskette: 


MOVCPM 
ASM 

DDT 
SYSGEN 


Obviously, moving the CCP, BDOS, and CBIOS 
to a new location requires that all of the CALL and 
JMP addresses be changed to fall within the new 
system area. Equally obviously, we cannot change 
anything in the system that is currently up and 
running or it would crash. Therefore, to relocate the 
system, we use the MOVCPM utility, which 
contains a complete set of the system machine 
code. If we wish to create a new 32K CP/M system, 
we invoke MOVCPM with the command: 


А>МОУСРМ 32 * 


MOVCPM now changes all the CALL and JMP 
addresses іп its internal version of CP/M to suit the 
size we have requested (in this case, 32K), and 
then places the reconstructed CP/M code in the 
ТРА with the Boot (Cold Start Loader) starting at 
900H, the CCP starting at 980H, and the BIOS 
starting at 1E80H. Now it tells us that the new 
system is ready for SYSGEN or for the command: 


Chris Terry, 324 E. 35th St., New York, NY 10016 


32 


SAVE 32 CPM32.COM 


and DDT will automatically put the reconstructed 
CP/M at the right place (980H). 

Let's look at figure 1. We see that our Boot has 
to be loaded at 900H. The execution addresses in 
BOOT.HEX start at 0000, and if we just used the 
simple Read (R) command of DDT, that is where the 
Boot would be loaded. However, DDT allows us to 
use an OFFSET with the read (R) command; this 
offset is added to every load address. We calculate 
it by taking the difference between the address 
where we want loading to start and the ORG 
address of the file. If BOOT is ORGed at 0000, the 
offset is 0900Н-0000=900Н; if BOOT is ORGed at 
80H. the offset is 0900-0080Н=880Н. If we don't 
have a hex calculator (such as the TI Programmer), 
we canuse the hex arithmetic command (H) of DDT; 
the command: 


-H900,80 


will cause DDT to give us first the sum (980) and 
then difference (880) of our two numbers. So, to 
overlay the MDS Boot with our own, we give the 
commands: 


-IBOOT.HEX 

-R900 (if ORG is 0000) 
or 

-R880 (if ORG is 80H) 


Things become a little more tricky when we 
come to the CBIOS. Look at figure 1 for amoment. 
Moving the Boot to the Memory Image area was 
simple, because we were moving it upward. But to 
get the CBIOS shifted from its execution address of 
7EOO0 to 1E80 in the Memory Image area, ме have to 
shift it DOWNWARD. Unfortunately, DDT can only 
ADD an offset to, not subtract it from, the file load 
address. However, we can still use a positive offset 
that will bring us to the right place, because the 
CPU address counter has only 16 bits; thus, if we 
add 1 to address FFFF we get 10000 -- but the 
counter has no place to put the leftmost digit, so we 
come back to 0000. We see, then, that to shift a 
program downward in memory, we have to give DDT 
an offset that will push the program up off the top of 
memory and bring it upward through the bottom. A 
Two's Complement subtraction of the larger 
address from the smaller will do precisely this. 

We know that for a 16K system the offset is 
980-2900=E080, and since ЗЕОО is the execution 
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CP/M Connection, contd... 


address of CBIOS, it will be found in the Memory 
Image area at: 


3E00 + E080 = 11E80 = 1E80 


We also know that the start of the CCP in our 
new system is 2900--4000--6900, so the offset for 
our new system is 980-6900—A080. If we add this 
to the start of our new CBIOS, which is 
3E00+BIAS=7e00, we find that 
7E00+A080=1E80. Bingo! Now, to overlay the 
MDS BIOS (which was put in the Memory Image 
area at 1E80 by МОУСРМ) we tell DDT: 


-ICBIOS.HEX 
-RAO80 


11E80 OUT OF MEMORY, SO 


BECOMES 01E80 
11Е80-7Е00 = A080 


с 
теш °° DESIRED 


0208/8008 


BIAS 
4000 


Жы шы 


СҮРЕНІ: 


САПЫ ur 


MEMORY IMAGE 


Jeso CBIOS 
_CcP/BDOS 


SYSGEN 


980 _ 


BOOT 


BOOT Е ТЕ 
0000 в 


FIGURE 1. HOW RELOCATION WORKS 


We can forget about SYSGEN at this point, 
because the Boot and the BIOS generated by 
MOVCPM are for the Intel MDS system and 
chances are that not even the console I/O would 
Work, let alone the disk commands. So we save the 
COM file, as instructed. 

Now we have some preparation work to do, so 
that we can overlay the MDS Boot and BIOS with 
the Boot and CBIOS supplied by our controller 
manufacturer and previously modified to work with 
our system ИО. First, we must calculate the BIAS 
for our new system; that is, the amount by which 
every CP/M instruction is shifted upward. 
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MOVCPM took care of this for the CCP and BDOS 
instructions, but we need it to find where to ORG 
our own CBIOS. We are going to move the system 
up by 16K; since 4096 decimal (4K) is equivalent to 
1000 hex, it follows that our BIAS for a 32K system 
is going to be 4x1000—4000H. We have to apply 
this BIAS to three items: 


In the Coldstart Loader, to set: 
(1) the address at which CP/M will be loaded, 
and 
(2) the address to which the loader will jump to 
start CP/M running; 

In the CBIOS, to set: 
(3) the ORG address. 


Let's look at the ASM listing of the Boot (using 
our editor), and find out where it executes. It will 
almost certainly be either 0000 (as in the case of 
the Tarbell disc controller board) or 80H (as in the 
case of the Thinker Toy board). We make a note of 
the ORG address, but do not change it. If we find an 
MSIZE EQU 16 statement, this will be used by the 
assembler to compute the load address (1) and the 
jump address (2); we need only change it to MSIZE 
EQU 32. If we do not find an MSIZE equate, the 4th 
executable statement will be LXI H,2900H; we 
change the operand to LXI H,6900 (=2900+BIAS). 
Тре 3rd statement of the RBLK1 routine will be JZ 
ЗЕООН; we change this to JZ  7EO00H 
(=3E00+BIAS). 

Next, we must go into the CBIOS.ASM file 
with our editor, and look at the ORG statement. 
Once again, if we find an MSIZE equate statement, 
that is all we need to change. The Assembler will 
do the rest. 

If we do NOT have an MSIZE statement, but 
instead find ORG ЗЕООН (or any other absolute 
address), we have to change the ORG address to 
3E00+BIAS (in this case 7Е00). Assuming that we 
don't want to make any changes to the peripheral 
drivers (for console, list, reader, or punch), we can 
exit from the editor. 

Now we use ASM to reassemble the CBIOS at 
the new address. It’s a good idea to let the 
assembler create a PRN listing with all the 
addresses and object code, and to print this right 
away. We can then ERAse CBIOS.PRN, which 
takes up alot of room on the disk and is not required 
any more. Before going any further, let’s check the 
directory and make sure that we do indeed have the 
CPM32.COM, CBIOS.HEX, апа ВООТ.НЕХ files. 


CALCULATING OFFSET 

At this point we have to remember that every 
COM and .HEX file contains built-in instructions on 
where to load it. We shall have no trouble with the 
CPM32.COM which we saved previously, because 
MOVCPM arranged for the reconstructed CCP and 
BDOS to be loaded into the Memory Image area 
starting at 980H, even though they will execute at 
2900+BIAS (6900 in this case). We have only to 
give the command: 


A>DDT CPM32.COM 
33 


A»NOVCPM 32 &— — — — keceonshuet sylem 
CONSTRUCTING 32K CP/M VERS 1.4 OM 5 reply 


READY FOR "SYSGEN" OR 

"SAVE 32 CPM32.COM" 

A>SAVE 32 CPM32. COM — gre Же new SYSTEM 
A>ASM TTCBIOS 

CP/M ASSEMBLER - VER 1.4 озетое ea ea СОАУ 
3F 4D 


004H USE FACTOR 
END OF ASSEMBLY 


A»ASM TTBOOT—_ 4 л 
CP/M ASSEMBLER - VER 1.4 Инет eg ted Jor 
0100 


001Н USE FACTOR 
END OF ASSEMBLY 


6% tor direc Tory 


A>WDIR 

-WORK 011 ASM COM COPY3 COM CUTER COM 
DDT COM DIAPRINT HEX DPRT12 COM INTLIZE ASM 
IODVRS ASM MOVCPM COM NEWCBIOS ASM NTARBIOS ASM 
NTARBIOS АЗМ+1 NTARBIOS5 HEX PAGE COM PIP COM 
SAP COM 5В00Т40 А5М SBOOTAO HEX SBOOT40 PRN 
STAT COM SUBMIT COM SYSGEN ASM SYSGEN COM 
SYSGEN HEX SYSGEN PRN SYSGEN PRN+1 SYSGEN SYM 
TARBIOS4 ASM TARBIOS4 ASM-«1 TARBIOS4 HEX TTBOOT ASM 
TTCBIOS ASM WDIR COM WM COM XFER COM 
CBIOS64 HEX CPM64 COM 5В00Т64 НЕХ РІМІТ СОМ 
CPM32 COM TTCBIOS , PRN TTCBIOS HEX TTBOOT PRN 
TTBOOT HEX 

A> 

A>DDT_CPN32.coM—————Ge7 new әуе mre Merpry lage 
NEXT PC area 
2100 0100 

-Іттвоот.нкх----(?ғғ/е Об Tür Loof 


-R880 


NEXT РС Overlay MOS (алу LZ QUA 


тавон нв шне FCO 7^ COMAS 

NEXT PC егу MOS OJOS with ours 

x P Ab erem COmplere ; “Жо Current. Gore 
SYSGEN VER La ligera И Уу reply 


FOR PERTEC SINGLE DENSITY DISK 
SOURCE DRIVE NAME (OR RETURN TO SKIP) Kepun Фет” Фе же Dave 
РА 


DESTINATION DRIVE NAME (OR RETURN TO РЕВООТ)В 7 / 
DESTINATION ON R, THEN TYPE RETURN есгу age 
FUNCTION COMPLETE 

DESTINATION DRIVE NAME (OR RETURN TO REBOOT) Же CW SST Ey 


2 
Kerry, 70 гед? 
FIGURE 2. SAMPLE RELOCATION JOB уе?” oO. 7,7 
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CP/M Connection, contd... 


If it should be necessary at this stage to make 
minor changes to the CBIOS, it is now easy to fine 
the address at which the change is to be made. Any 
address in the Memory Image area can be found by 
adding the offset to the execution address shown in 
the CBIOS.PRN listing of the re-assembled CBIOS. 
We can then use either the DDT Substitute (S) 
command to insert the new hex values or, if several 
successive instructions are to be changed, we can 
use the DDT A (Assemble) command which allows 
complete instructions to be inserted using the Intel 
mnemonics for operation and register codes, and 
hex values for addresses or constants. 

The CP/M System Alteration Manual has all 
this information; there is even a table of offsets for 
various system sizes. But for some reason | and 
many others have great difficulty in getting the 
procedure clear. Perhaps the CP/M manual gives 
us too much, too quickly -- that is why | have 
spreadout this description. 


THE USES OF 'SYSGEN' 

Atthis point, the Memory Image area contains a 
complete 32K CP/M system with the correct 
CBIOS and Boot for our own configuration. We now 
use the SYSGEN utility to write the new system out 
to Tracks O and 1 of a fresh, formatted disk. The 
complete sequence of commands is shown in 
figure 2, with comments. 

Note that when SYSGEN asks SOURCE DRIVE 
NAME (OR RETURN TO SKIP), we hit Return 


coupler. 


for units not in warranty. 


LOW PRICE—5359 9 — 


Potomac Micro-Magic, 


Write for brochure: 
First Lincolnia Bldg., Suite B1 
4810 Beauregard St. 

Alexandria, Va. 22312 
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HE MM-103 DATA MODE 
AND COMMUNICATIONS ADAPTER 


bus competible 


HIGH QUALITY 


-50dBm sensitivity. Auto answer. Auto originate. Auto 
dialer with computer-controlled dial rate. 61 to 300 baud 
(anywhere over the long-distance telephone network), 
rate selection under computer control. Flexible, soft- 
ware-controlled, maskable interrupt system. 


ASSEMBLED & TESTED 


For Modem pius shippin aon 
AND Coupler ing == 


FCC APPROVED 


Both the modem and telephone system interface are 
FCC approved, accomplishing all the required protective 
functions with a miniaturized, proprietary protective 


WARRANTY 


One year limited warranty. Теп-дау unconditional 
return privilege. Minimal cost, 24-hour exchange policy 


because we already have the reconstructed 
System in the memory area. However, when we are 
not relocating CP/M, but merely putting the 
existing system, unchanged, onto a new disk, we 
do not need to use DDT to get the current system 
into the Memory Image area. When SYSGEN asks 
for the source drive, we tell it A, and CP/M is read 
from Tracks O and 1 of our current system disk into 
the Memory Image area. Then, when SYSGEN asks 
for the destination, we tell it B, and write the system 
out to a new disk. 


COPYING THE SYSTEM FILES 

SYSGEN does not handle anything except the 
CP/M system itself. The utilities, such as ASM, ED, 
DUMP, LOAD, etc., must be handled separately. 
The files on our current system disk can be 
transferred over to the new system either by the 
CP/M Users' Group utility COPY.COM, or by the 
command 


А>РІР B:—A:*.*[V] 


COPY transfers a whole track at a time, 
verifying each sector but not reporting until the end. 
PIP transfers one file at a time, verifies the new file 
against the old, and reports the name of the file 
transferred, so it takes somewhat longer. PIP will 
be our choice if we want to be selective, copying 
only the .COM files, for example. 

In the next part of this article | will discuss 
handling the I/O byte. 


& handling 


| Call for further information: 
\ ты” VOICE: (703) 750-3727 
“C MODEM: (703) 750-0930 (300 baud) 
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Мотой Торісѕ 


А Spooling Program and Much More 


The program described here is an extension to the 
North Star DOS which implements input/output 
redirection, a printer SPOOL and a command stack. 
The word SPOOL is an acronym for Simultaneous 
Printing of Output on Line. The word “simulta- 
neous" is used in the sense of driving multiple 
printers. | have borrowed the acronym and also 
changed its meaning in this application. This 
program allows the redirection of all character 
input/output which use the N*DOS drivers (located 
at 2900H-29FFH in the single density DOS). This 
means that all character I/O can use the device 
specified and/or use a disk file. This feature 
provides a lot of flexibility for transferring data 
between programs which can typically be done only 
on those "big" systems. This program will also drive 
a printer from a disk file while the computer is 
waiting for terminal input, so | feel the "SPOOL" 
acronym applies. 

Here is a list of the features of this program: 

—Full МО redirection for a terminal, printer and disk 
files of type 7. | 

—Multiple commands сап be entered оп one line 
using the “command stack.” 

—An “operating system" is included which allows 
buffered or unbuffered access to any North Star 
disk file. 

—A significant amount of error checking is done 
(the exception is hard disk errors). 

The program is 2.5K bytes long (the same size as 
the N*DOS) which includes buffer space for a read, 
write and printer spool file. This implementation is a 
stand alone program which can be located anywhere 
in memory (only slight adjustments are required to 
put the program in EPROM memory). The "operating 
system" provides entry points to open an existing 
file, to do blocked read and write, unblocked read 
and write (i.e. one byte-at-a-time access of disk 
files), to close and create a new file. These are 
capabilities found in operating systems like CP/M. 
This "operating system" uses file control blocks and 
provides for a pseudo-dynamic file system. If a new 
file is created with a length of zero, all available disk 
space is used. When this file is closed, the disk 
space is adjusted to the amount actually used. 

| first started developing this program two years 
ago. It has evolved into it’s present form which | feel 
is the easiest to implement. The only "personaliza- 
tion" required is to tell the program the address of 
the terminal status port and the bit which indicates 
when a character is ready (bit is set) on the 
keyboard. The N*DOS 1/0 drivers don't provide this 
function and this program needs to know how to 
detect when a character is ready on the keyboard. 


Randy Reitz, 26 Maple St., Chatham Township, NJ 07928 
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Randy Reitz 


The first part of this article will discuss 1/О 
redirection, the command stack and the printer 
spool sections of the program. The second part will 
discuss the "operating system" and the error 
handling routines. This program will work with 
N*DOS release 4.3 ог 5.15. І do not have double 
density and | suspect that the changes required to 
accomodate double density would not be trivial. 

The program begins with constant declarations. 
The only constant which needs to be changed for 
release 4.3 is DOSPTNR (change to 28FAH). AII of 
the references to the DOS program, except the 
DOSPTNR constant, are documented in the N* 
System Software Manual. As | will soon discuss, 
output can be directed to a disk file while the DOS is 
requested to list the contents of the disk directory. ! 
found that the DOS does not expect any other disk 
activity to be occuring while it is printing the 
directory. In order to request a DOS directory look 
up (using entry DLOOK) while the DOS already has a 
directory maintenance activity in progress, the 
2-byte value at location DOSPTNR must be 
preserved. The N*DOS is not designed to be a 
reenterant program. The references to the MDS 
firmware assume a standard PROM is installed at 
E800H. 

This program's origin is at 1600H and three 
256-byte buffers follow starting at 1DOOH. These 
addresses place the entire program and buffers in 
the 2.5K bytes immediately below the DOS. These 
addresses can be changed to place the program and 
buffers anywhere in memory. They don't have to be 
in contiguous memory locations. The only consid- 
eration required to locate the program in EPROM is 
to move the storage area at the end of the program 
to a suitable memory address as well as the jump 
vectors for the DOS 1/О routines. If the program is 
named "DOSPOOL", then the N*DOS command 
“GO DOSPOOL” will load the program and jump to 
1600H. The program begins with a jump over the 
constants needed to determine if a character is 
ready on the keyboard and the hold area for the DOS 
1/O jump vectors. 

This program begins by inserting itself between 
the DOS user programs and the DOS 1/О routines. 
The initialization routine at DOSPOOL changes the 
addresses in the DOS to jump to this program's 
character input and output routines. The addresses 
currently used by the DOS are stored in the JMP 
instructions labeled USRCOUT and USRCIN. The 
addresses for the command stack are then 
initialized and finally the terminal status port and 
keyboard mask are written into the program. If you 
implement the program in EPROM, you should 
insert these two bytes before "burning" the 
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EPROMS. As | mentioned before, the program 
needs to determine when a character is ready on the 
terminal keyboard. This is required when the 
program is driving the printer from a disk file while 
waiting for terminal input. The values given are for 
the standard HORIZON serial port. The initialization 
is now finished so the DOSPOOL routine returns to 
the DOS. The DOS will immediately enter at SPLCIN 
by requesting terminal input. 

The program continues with the routines used for 
character input/output. The I/O redirection is 
controlled by the IOFLAG byte which is similar to 
the IOBYTE used in CP/M. If the IOFLAG byte is O, 
all 1/О uses the device specified by the value of the 
A-reg when the input/output routine is entered. The 
individual bits in IOFLAG are set using escape 
Sequences (this is a two character sequence, the 
first character of which is an escape - ASCII 27). 

The SPLCIN routine is entered by the DOS 
whenever the DOS or a user program (e.g. N*BASIC) 
requests a character from the device specified in the 
A-req. Since the routines which redirect I/O to the 
disk use a lot of stack space, the SPLCIN (and 
SPLCOUT) routine reset the machine stack to the 
area provided at address IOSTK. The main character 
input routine FETCH is called by SPLCIN. When 
FETCH returns with bit 7 reset, SPLCIN returns to 
the calling program with the character in the A-reg 
and all registers restored. 

The FETCH routine is long because it recognizes 
the escape sequences which control the value of the 
IOFLAG byte and the names of the spool files. Since 
the command stack is given the highest priority, 
FETCH begins by checking if the command stack is 
active. If so, the next character is taken from the 
stack and returned to the calling program. Тһе 
command stack is used by separating commands on 
a line by the logical end-of-line character (І chose 
“Р’-АЗСИ 124). The escape and "I" characters are 
special to the FETCH routine. If you have to return 
one of these characters to the calling program, you 
need to type them twice. A typical example which 
uses the command stack is: 


CR STUFF 23/TY STUFF 2 «CR» 


By typing this line, the DOS program would 
receive the CR STUFF 23 part of the line normally 
when the carriage return ( < СВ > ) key is typed at the 
end of the line. During typing, the "I" would stop 
sending characters to the calling program and enter 
all remaining characters typed into the command 
stack. The « CR» key typed at the end of the line is 
sent to the calling program. When the calling 
program returns for more characters, all' characters 
up to the next "I" or the actual end-of-line are 
returned to the program along with another <CR>. 
І use this feature to stack commands so my disk 
drive motors do not shut-off due to my slow typing. 
Another feature of the command stack is that the 
escape sequence ESC S will cause the FETCH 
routine to start sending characters from the current 
contents of the command stack. If you have one 
command or a series of commands you want to 
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execute repeatedly, you can put them in the stack by 
starting a line with а "I" character and then type the 
command (or commands separated by “I” charac- 
ters) followed by a « CR» character. The «CR» 
will be sent to the calling program; but then typing 
an ESC S will send these command(s) to the calling 
program whenever desired. 

After the command stack is checked, the next 
check in the FETCH routine is to see if the read disk 
spool is active. The appropriate bits т the IOFLAG 
are checked, and if active, all input is read from the 
read spool file. This will continue until the read 
spool file reaches an end-of-file condition or any 
character is typed on the terminal keyboard. Both of 
these conditions will stop the read spool until the 
IOFLAG byte is cleared. One character is read from 
the read spool file whenever a device code of 8 is 
used. The IOFLAG byte contains a bit which will 
cause the input device code of 8 to be ignored and 
passed to the user's CIN routine. 

At the point KEYBD in the FETCH routine, neither 
the command stack or input spool file is active, so a 
character is obtained from the requested input 
device. The GETCP routine is used which will drive 
the printer with the contents of a printer spool file 
while waiting for the user to type a character. Once 
GETCP returns with a character, the special 
characters of ESC and "I" are checked. If these 
characters are not found, the character typed is 
returned to the calling program. № a logical 
end-of-line character (“1”) is found, control is 
transferred to LDSTK which will continue to read 
characters into the command stack. The remainder 
of the FETCH routine handles the escape sequen- 
ces. Here is a complete list of escape sequences: 


Char after ESC Function 
0 Zeroes the IOFLAG byte which clears 
any spool errors and stops the print 
spool. 
1 Directs all output to both the printer 


(device 1) and the terminal (device O). 


2 Opens the print spool and begins 
printing, if the print spool was 
already open then printing resumes. 


Aa 


Directs all output to the terminal and 
write spool file. 


8 Reads all input from the read spool 
file until end-of-file or any character 
is typed. 

@ SPLCIN and SPLOUT will ignore the 


device code in the A-reg. SPLCIN 
will pass the device code to the 
users CIN routine. SPLOUT will 
force a device code of 0. 


R Displays the current name of the 
read spool file. Type a <CR> if no 
change is desired or else type the 
name of the file. Use N*DOS file 
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North Star, cont... 


Char after ESC Function 


name conventions. Use a BS char to 
correct typing errors. 


М Same аз В but for write spool file 
name. 
о Same ав В but for print (output) 


spool file name. 


^S Start sending characters from cur- 
rent contents of command stack. 
Continues until end of stack. 


^C Close current write spool file and set 
file length to number of blocks used. 


ESC Send the ESC character to the calling 
program. 


| Send the “I” character to the calling 
program. 


If the R, W and O commands are used to examine 
the name of a spool file only, the status of the file is 
not changed. Hence, the 0 and 4 commands can be 
used to append characters to the end of an existing 
write spool file that is open. If the name of a spool 
file is changed, the file is closed. Therefore, to 
restart a spool file from the beginning, merely retype 
its name. If a spool error occurs during a read or 
write spool file operation, the error bit in the 
IOFLAG is set and spooling stops. The 0 command 
will clear the IOFLAG and spooling can be resumed 
at the point of the error if possible. Finally, if a 
program is writing to device 4 (the write spool file), 
the program can close the write spool file by writing 
an SOH character (ASCII 1). Similarly, the read spool 
will terminate when an SOH character is found. 

The SPLOUT routine is not as long as the SPLCIN 
routine. This routine also resets the machine's stack 
pointer and then checks if the write spool file is 
active in the IOFLAG. One problem in the SPLOUT 
routine is that when a program is reading from 
device 8 (the read spool file) it may "Echo" 
characters to device 8 also. | chose to ignore these 
echoes so that a read and write spool can be active 
simultaneously. 

The next routines implement the command stack. 
The entry GOSTK will pull characters from the stack 
and the entry LDSTK will put characters from the 
stack and the entry LDSTK will put characters onto 
the stack. When loading characters onto the stack, 
the BS (backspace) character is used to delete the 
previous character typed. Also the characters 
entered on the stack аге echoed to device 0. This 
may be a problem if some other input device uses 
the command stack. 

The next routines are the spool drivers. Entry 
GETSPL will read one character from the read spool 
file. If the read spool file is not open, SPLSRCH is 
called to open the file. RDERR is used to report (on 


38 


device 0) any error that occurs on the open. RDDISK 
will get the next character from the file. If the 
character is а СН , then CKEYBD is used to 
detect if a key has been hit on the keyboard (device 
0). Typing any key while the read spool is active will 
stop the read spool. Spooling can be resumed by 
first clearing the IOFLAG byte with ESC 0. If the 
program is reading from device 8 then spooling will 
resume, else an ESC 8 will do it. The errors that are 
detected are bad filename, file not found, file type 
error and length error. 

Entry PUTSPL will write a character to the write 
spool. If the write spool is not open, SPLSRCH is 
called to open the file. If the file doesn't exist, 
CREATE is called to create the file using as much of 
the disk space as is available. If an SOH character is 
recieved, the write spool file is closed. The errors 
that are detected are disk write protected, disk full, 
length error and bad filename. 


Entry GETCP will drive a printer if bit 1 is set in 
the IOFLAG (ESC 2). If this bit is not set, control is 
transferred to GETCHAR which waits for a character 
to be typed, or else PRACT is called. This routine 
checks if the print spool file is open and opens it if 
required. This routine will loop at location PRLOOP 
while checking the keyboard with GETSTAT. 
PRLOOP expects to be driving a printer at 30 CPS. 
When there are 38 characters left in the buffer, 
STRTM is called to start the disk drive motors. When 
there are 8 characters left in the buffer, SELECT is 
called to load the disk drive head. These constants 
can be varied to suit your printer so that the printing 
will not stop while the disk drive turns on. This 
"nice" feature was really necessary since the N*DOS 
will loop for І-вес after turning on the disk drive 
motors. If this happens, no character typed on the 
keyboard would be found until the DOS returned. 
This would cause an unacceptable slowdown in 
typing. The errors that are detected are bad 
filename, file not found, file type error and length 
error. 

The SPLSRCH and CLSPOOL routines are short 
interface routines to the "operating system." The 
next routines display and allow the names of the 
three spool files to be changed. A name is 
considered changed if any character other than a 

CR is typed. When the name of a spool file is 
changed, it is considered to be closed. Finally, 
some miscellaneous routines are given in the 
listing. The "operating system" will be discussed in 
the next part. 

| find that | use this program most frequently to 
transfer data between programs. Although | began 
by implementing a spool file to drive a printer, the 
possibilities available by writing and reading spool 
files quickly became more important. 


—PROGRAM BEGINS NEXT PAGE— 


Introduction To CP/M 


Part IV of the "Introduction To CP/M," by Jake 
Epstein, will be continued in the next issue of S-100 
MICROSYSTEMS. Regretfully, the manuscript 
arrived too late for inclusion in this issue. 
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1614 
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1662 
1665 
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0005 
0010 
0015 
0020 
0025 
0030 
0035 
0040 
0045 
0050 
0055 
0060 
0065 
0070 
0075 
0080 
0082 
0085 
0090 
0095 
0100 
0105 
0110 
0115 
0120 
0125 
0130 
0135 
0140 
0145 
0150 
0155 
0160 
0165 
0170 
0175 
0180 
0185 
0190 
0195 
0200 
0205 
0210 
0215 
0220 
0225 
0235 
0236 
0240 
0245 
0250 
0255 
0260 
0265 
0270 
0275 
0280 
0285 
0290 
0295 
0300 
0305 
0310 
0315 
0320 
0325 
0330 
0335 
0340 
0345 
0350 
0355 
0360 
0365 
0370 
0375 
0380 
0385 
0390 
0395 
0400 
0405 
0410 
0415 
0420 
0425 
0430 
0435 


LINE FEED 
CARRIAGE RET 


*ASCII CONSTANTS 
CTRLC EQU — 'C'-40H 
CTRLS EQU — 'S'-40H 
BELL EQU 7 

ESC EQU —1BH 

LE EQU 10 

Bs EQU 8 

CR EQU 13 
RUBOUT EQU  7FH 

* 

*EXTERNAL REFERENCES - DOS 


COUT EQU 2000н 
CIN EQU 2010H 
DLOOK EQU  201CH 
DWRIT EQU 201РН 
DCOM EQU 2022Н 
DOSERR EQU 202СН 
DOSPTNR EQU 2887H 
DOSENTR EQU 2028H 
* 

*EXTERNAL REFERENCES 


DRVSEL EQU 2003Н 
READA EQU — ОЕВ1ОН 
RESET EQU 0ЕВ90Н 
NOSEL EQU 59H 
мо EQU — 10H 
cc EQU ОЕВН 
* 
*OTHER CONSTANTS 
SPLPRG EQU 1600H 
SPLBUF Е00 1000Н 
* 

ORG SPLPRG 
. 


CHARACTER OUT ROUTINE 
CHARACTER IN ROUTINE 

FILE DIRECTORY LOOKUP 
WRITE A DIRECTORY BLOCK 
ISSUE A DISK COMMAND 

FILE NAME OR DSK WP ERR 
POINTER ADDRESS IN REL 5.1 
DOS RE-ENTRY POINT 


- MDS FIRMWARE 


CONTAINS CURRENT DRIVE SELECTED 
READ A STATUS 

RESET MOTOR TIMER 

FLAG FOR NO DRIVE SELECTED 
MOTOR-ON BIT 

CONTROLLER COMMAND 


*THE "GO DOSPOOL" COMMAND ENTERS HERE 
* 


JMP DOSPOOL 


* 
*HERE ARE THE CONSTANTS 


NEEDED TO DETERMINE 


*IF A CHARACTER IS READY ON THE KEYBOARD 
* 


STATPRT DB 3 


KBDMSK DB 2 
* 


THE "ADDRESS" OF THE STATUS PORT 
THE KEYBOARD READY BIT 


*HOLD THE JUMP VECTORS FOR DOS I/O ROUTINES 
* 


USRCOUT JMP 
USRCIN JMP 
* 


USRCOUT 
USRCIN 


*INITIALIZE THE SPOOLING PROGRAM 

*CHANGE THE CHARACTER I/O ADDRESSES IN DOS 
*AND INITIALIZE THE PROGRAM CONSTANTS 

* 


DOSPOOL: LHLD CIN+]1 СЕТ USER'S INPUT ROUTINE ADDR 
SHLD USRCIN+1 
LHLD COUT+1 СЕТ USER'S OUTPUT ROUTINE ADDR 
SHLD USRCOUT+1 
LXI Н,5РІСІМ GET SPOOL INPUT ROUTINE ADDR 
SHLD CIN+1 50 DOS COMES HERE 
LXI Н,6РІСООТ SAME FOR OUTPUT ROUTINE 
SHLD COUT+1 
LXI Н,10С5ТК START ОР COMMAND STACK 
SHLD STACK 
LXI  H,0 
SHLD RDSTK COMMAND STACK EMPTY 
SHLD IOFLAG 
MVI A, ОРЕН 
STA LOCSTK+160 MARK END OF CMD STACK 
LDA STATPRT "ADDRESS" OF KEYBOARD STATUS PORT 
STA СЕТЅТАТ+1 
LDA КВОМЅК KEYBOARD READY BIT 
STA  СЕТЗТАТ+З 
RET 
. 
*THESE ROUTINES IMPLEMENT COMMAND STACK AND DISK SPOOL 
М 
* IOFLAG BITS HAVE FOLLOWING MEANINGS WHEN SET 
* BIT 0 - ALL OUTPUT TO PRINTER AND CRT 
* BIT 1 - PRINT SPOOL IS ACTIVE 
* BIT 2 - ALL OUTPUT TO WRITE SPOOL AND CRT 
* BIT 3 - ALL INPUT FROM READ SPOOL (KEYBOARD DISABELED 
* EXECEPT FOR ^C) 
* BIT 4 - IGNORE DEVICE NUMBER IN A-REG (USED FOR 
* PROGRAMS WHICH DO NOT FOLLOW DOS CONVENTIONS 
. FOR USE ОР A-REG TO SIGNAL DEVICE NUMBER) 
* BIT 7 - SPOOL ERROR, READ/WRITE SPOOL DISABLED 


* 
*INPUT ROUTINE, 


READ A CHARACTER FROM KEYBOARD 


*OR FROM COMMAND STACK OR FROM DISK SPOOL 
* 


0440 

0445 

0450 SPLCIN: PUSH H 

0455 LXI  H,0 
0460 DAD SP 

0465 LXI  SP,IOSTK 
0470 PUSH H 

0475 PUSH D 

0480 PUSH B 

0485 STA  IODEV 
0490 LOOP: CALL FETCH 
0495 TESTS: JM LOOP 
0500 POP в 

0505 FIN: POP D 

0510 POP H 

0515 SPHL 

0520 POP H 

0525 ORA А 

0530 RET 

0535 * 

0540 * 

0545 * 

0550 * 

0555 * 

0560 FETCH: LXI  D,RDSTK 
0565 LHLD RDSTK 
0570 MOV  A,H 
0575 ORA L 

0580 чт  GOSTK 
0585 LXI — H,IOFLAG 
0590 LXI — D,RDFILE 
0595 MOV  A,M 
0600 ANI 88H 
0605 JM $43 
0610 JNZ  СЕТЗРЬ 
0615 MOV  A,M 
0620 ANI 108 
0625 JNZ КЕҮВО 
0630 MOV  A,M 
0635 ORA A 

0640 JM KEYBD 
0645 LDA IODEV 
0650 CPI 8 

0655 22 GETSPL 
0660 KEYBD: LXI  D,PRFILE 
0665 CALL GETCP 
0670 LXI  D,RDSTK 
0675 LHLD STACK 
0680 CPI эр 


S-100 MICROSYSTEMS 


CHANGE STACK POINTER 

SO SUFFICIENT SPACE WILL BE 
AVAILABLE FOR DISK USEAGE 
МЕМ STACK AREA 

SAVE OLD STACK POINTER 

AND ALL REGS 


SAVE OUTPUT DEVICE CODE 
INTERNAL LOOP FOR COMMON RET 
BIT 7 MEANS CONT INTERNAL LOOP 
RESTORE REGISTERS 


GET OLD STACK POINTER 
RESTORE STACK POINTER 


A-REG CONTAINS CHAR FOR CLNG PROG 


ROUTINE TO GET A CHAR(S) FROM READ SPOOL OR KEYBOARD 
OR COMMAND STACK AND CHECK FOR CONTROL CHARACTERS TO 
START READ/WRITE/PRINT SPOOLS OR INTELLIGINT TERMINAL 


SET UP REGS FOR COMMAND STACK 


SEE IF COMMAND STACK 

IS ACTIVE 

BRIP ACTIVE 

POINT TO 1/0 CONTROL 

D,E TO READ SPOOL NAME 
CHECK READ SPOOL FLAG 

BIT 7 IS ERROR, BIT 3 IS READ 
SKIP SPOOL IF ERROR BIT SET 
BRIF IF SPOOL IS 'ON' 

CHECK IF INPUT DEVICE 
NUMBER SHOULD BE USED 
IGNORE DEV NUM IF SET 
CHECK SPOOL ERROR BIT 


SKIP SPOOL IF ERROR BIT SET 
CHECK INPUT DEVICE # 
DEVICE 8 FOR READ SPOOL 


GET CHAR 
CHECK IF 
INIT D,E 
INIT H,L 
LOOK FOR 


FROM KBD, CHECK FOR ESC 
PRINT SPOOL IS ACTIVE 
IF STACK COMMAND 

IF STACK COMMAND 

START OF STACK 


169A 
169D 
169Е 
169Ғ 
16A1 
16A3 
16A4 
16A6 
16A7 
16A9 
16AC 
16AF 
1681 
1684 
1686 
1689 
1688 
16ВЕ 
16С1 
16С3 
16С6 
16c8 
16CB 
16CD 
16D0 
16D2 
16D5 
16D7 
16DA 
1608 
160С 
16DE 
16DF 
16DF 
16DF 
16DF 
16DF 
16E1 
16E2 
16E3 
16Е6 
16Е7 
16ЕА 
16ЕВ 
16ЕС 
16Ер 
16ЕЕ 
16Р1 
16Ғ4 
16F7 
16F8 
16F9 
16FB 
16FE 
16FF 
1701 
1704 
1705 
1706 
1709 
170С 
170F 
1710 
1713 
1716 
1716 
1716 
1716 
1716 
1717 
1719 
171A 
171D 
1720 
1721 
1723 
1724 
1725 
1727 
172A 
1728 
1728 
1728 
1728 
172B 
172B 
1728 
172B 
172B 
172С 
1720 
172F 
1732 
1734 
1737 
1739 
173C 
173F 
1741 
1744 
1744 
1744 
1744 
1744 
1747 
174A 
174D 
1750 
1751 
1753 
1754 
1756 
1759 
1758 
175Е 
1760 
1763 
1764 
1765 
1766 
1767 
1768 
1768 
176Е 
1770 
1773 
1775 
1778 
1779 
177^ 
1778 
177Е 
1780 
1783 
1786 
1786 
1786 


04 
B7 


17 


17 
ic 


18 
18 


18 
1c 


18 
1B 
1B 
16 
1B 


00 


іс 
27 


іс 
17 


17 


00 
19 


0685 
0690 
0695 
0700 
0705 
0710 
0715 
0720 
0725 
0730 
0735 
0740 
0745 
0750 
0755 
0760 
0765 
0770 
0775 
0780 
0785 
0790 
0795 
0800 
0805 
0810 
0815 
0820 
0825 
0830 
0835 
0840 
0845 
0850 
0855 
0865 
0870 
0875 
0880 
0885 
0890 
0895 
0900 
0905 
0910 
0915 
0920 
0925 
0935 
0940 
0950 
0955 
0960 
0965 
0970 
0975 
0980 
0985 
0990 
0995 
1000 
1005 
1006 
1010 
1015 
1020 
1025 
1030 
1035 
1040 
1045 
1050 
1055 
1060 
1065 
1070 
1075 
1080 
1085 
1090 
1095 
1100 
1105 
1110 
1115 
1120 
1125 
1130 
1135 
1140 
1145 
1150 
1155 
1160 
1165 
1170 
1175 
1180 
1185 
1190 
1195 
1200 
1205 
1210 
1215 
1220 
1225 
1230 
1235 
1240 
1245 
1250 
1255 
1260 
1265 
1270 
1275 
1280 
1285 
1290 
1295 
1300 
1305 
1310 
1315 
1320 
1325 
1330 
1335 
1340 
1345 
1350 
1355 
1357 
1360 
1365 
1370 


22 
ORA 
RP 
ANI 
CPI 
RZ 
CPI 
R2 
CPI 
32 
LXI 
CPI 
Jz 
СРІ 
22 
СРІ 
272 
LXI 
CPI 
JZ 
CPI 
әс 
СРІ 
JP 
SUI 
JZ 
ANI 
JPE 
ORA 
MOV 
ORI 
RET 


SKIP: 


LDSTK 
A LOOK FOR ESCAPE SEQUENCE 
RETURN TO CALLING PROG IF NONE 
ТЕН STRIP OFF FLAG 
"Т! LOOK FOR CHAR '|' 
SEND TO CALLING PROG 
ESC LOOK FOR ESC CHAR 
CTRLS LOOK FOR EXECUTE STACK 
GOSTK EXECUTE THE STACK 
D,SPLFILE  PREPARE TO CHANGE FILE NAMES 
LU READ FILE NAME 
RDNAME 
‘or PRINT (OUTPUT) FILE NAME 
PRNAME 
‘we WRITE FILE NAME 
WRNAME 
H, IOFLAG 
CTRLC LOOK FOR CLOSE WRITE SPOOL 
CLSPOOL 
tor LOOK FOR IOFLAG CONTROL 
ESCERR 
‘AY 
ESCERR 
tor CONVERT CHAR TO BINARY 
SKIP INIT IOFLAG, CLEAR ERROR BIT 
1FH ONLY BITS 0-4 IMPLEMENTED 
ESCERR ONLY ONE BIT AT A TIME 
м PRESERVE OTHER BIT 
M,A 
80H RESTORE FLAG 


*THIS ROUTINE RECEIVES A CHAR (B-REG) AND 
*DEVICE CODE (A-REG) AND OUTPUTS CHAR 
. 


SPLCOUT: CPI 
RZ 
PUSH 
LXI 
DAD 
LXI 
PUSH 
PUSH 
PUSH 
MOV 
LXI 
STA 
CALL 
POP 
MOV 
ANI 
JNZ 
MOV 
ANI 
JNZ 
INX 
MOV 
CALL 
JMP 
CALL 
MOV 
CALL 
JMP 


DOPRT: 
DOCRT: 


CHECK 


Oss.. 


UTSPL: MOV 
ANI 
RM 

LXI 
JNZ 
MOV 
ANI 
RNZ 
MOV 
CPI 
JZ 

RET 
. 


*THESE ROUTINES HANDLE THE COMMAND STACK. 


H 
н,0 

SP 
SP,IOSTK 
H 
D 
B 


С,А 
Н, IOFLAG 


IF WRITE SPOOL 
WRITE CHARACTER TO DISK SPOOL 


A,M 
84H 


D,WRFILE 
PUTSPL 
A,M 

10H 

A,C 

4 

PUTSPL 


DON'T ECHO READ SPOOL 
CHARACTERS 

CHANGE STACK POINTER 

SO SUFFICIENT SPACE WILL BE 
AVAILABLE FOR DISK USEAGE 
NEW STACK AREA 

SAVE OLD STACK POINTER 

SAVE ALL REGS 


SAVE OUTPUT DEVICE # 


SAVE SELECTED OUTPUT DEVICE 
CHECK IF OUTPUT SPOOL 
IS ACTIVE; RESTORE CHAR 


LOOK FOR CRT ONLY FLAG 
IGNORE DEVICE NUMBER IF SET 


LOOK FOR PRINTER FLAG 


POINT TO IODEV 
RESTORE DEVICE CODE 


IS ACTIVE OR IF DEVICE 4 IS REQ 


CHECK WRITE SPOOL FLAG 

BIT 7 IS ERROR, BIT 2 IS WRITE 
SKIP WRITE SPOOL IF ERROR 

SET UP POINTER 
BRIF WRITE SPOOL IS 
CHECK DEVICE NUMBER 
IGNORE BIT 


“ом” 


ELSE CHECK DEVICE # 
BRIF DEVICE 4; WRITE SPOOL 


THE ROUTINES 


*USE 2 BYTES OF STORAGE IN THE DOS-I/O PROGRAM TO 
*SAVE A POINTER TO THE COMMAND STI 7K. 


* ENTRY TO EXECUTE STACK MODE 
* H,L POINTS TO CHARACTER ON STACK 


GOSTK: MOV 
INX 
CPI 
92 

СРТ 
JNZ 
MVI 
JMP 
LXI 
ANI 
JMP 


KILL: 
SAVPTR: 


A,M 
H 

CR 
KILL 
ТЕ 
SAVPTR 
A,CR 
SAVPTR 
H,0 
7РН 
UPDATE 


* 
* ENTRY: ТО LOAD STACK 
* H,L POINTS TO START OF STACK 


* 


LDSTK: CALL 
CALL 
CALL 
CALL 
MOV 
CPI 
RZ 
CPI 
42 
СРІ 
JZ 
СРІ 
әс 
INX 
PUSH 
MOV 
INR 
POP 
JNZ 
CALL 
MVI 
CALL 
MVI 
CALL 
LDAX 
CMP 
DCX 
JNZ 
ORI 
LXI 
JMP 


LOAD: 


DELETE: 


KILLSTK: 


* 


UPDATE 
DISPLAY 
GETCHR 
DISPLAY 
M,A 

CR 


CTRLC 
KILLSTK 
BS 
DELETE 
.. 


LOAD 


н,0 
UPDATE 


POINT TO NEXT CHAR 

LOOK FOR END OF STACK 
BRIF CR, KILL STACK MODE 
LOOK FOR END OF LINE 
BRIF NOT EOL, RET CHAR 
RETURN A CR FOR EOL 

AND SAVE POINTER 

KILL STACK MODE 

CLEAR ESCAPE FLAG 

H,L -> (D,E) AND RETURN 


SAVE INITIAL VALUE OF POINTER 
ECHO CHAR 

GET CHAR AND FLAG ESC 

ECHO CHAR 

SAVE CHARACTER 
LOOK FOR CR 
RETURN IF CR, 
CHECK FOR KILL 
DELETE STACK AND RETURN ^C 
CHECK CHAR DELETE 


END OF STACK 


LOOK FOR CONTROL CHARS 
NOT ALLOWED ON STACK 
BUMP POINTER TO STACK 


CHECK FOR END OF STACK FLAG 


CONTINUE IF NOT END 
INDICATE END OF STACK 


ECHO BS 
DELETE LAST CHAR 


GET INITIAL VALUE OF POINTER 
SEE IF CURRENTLY AT FIRST POS 
ADJUST STACK POINTER 

CONTINUE IF CHARS REMAIN 

ELSE SET FLAG AND RETURN 
KILL STACK MODE AND RETURN 


*THESE ROUTINES ARE USED BY THE CIN AND COUT 1/0 PROGS 


*TO READ AND WRITE THE DISK SPOOL. 


ROUTINES USE 


39 


57 BYTES 


ср 
ЗЕ 
св 
7E 
F6 
77 
AF 
3E 
c9 


oc 


44 
43 
2D 
7F 
39 
3D 
ор 
А9 
7F 


48 
00 


80 


00 


0А 


52 


D3 
50 


07 


57 


00 


18 
18 
19 
19 
1c 
18 


17 


19 


18 
00 


19 
18 


1B 


1375 
1380 
1385 
1390 
1395 
1400 
1405 
1410 
1415 
1420 
1425 
1430 
1440 
1445 
1450 
1455 
1460 
1465 
1470 
1475 
1480 
1485 
1490 
1495 
1500 
1505 
1510 
1515 
1520 
1525 
1530 
1535 
1540 
1545 
1550 
1555 
1560 
1565 
1570 
1575 
1580 
1585 
1590 
1595 
1600 
1605 
1610 
1615 
1620 
1625 
1630 
1635 
1640 
1645 
1650 
1655 
1660 
1665 
1670 
1675 
1680 
1685 
1690 
1695 
1700 
1705 
1710 
1715 
1720 
1725 
1730 
1735 
1740 
1741 
1742 
1745 
1750 
1755 
1760 
1765 
1770 
1775 
1780 
1785 
1790 
1795 
1800 
1805 
1810 
1815 
1820 
1825 
1830 
1835 
1840 
1845 
1850 
1855 
1860 
1865 
1870 
1875 
1880 
1885 
1890 
1895 
1900 
1905 
1910 
1915 
1920 
1925 
1930 
1935 
1940 
1945 
1950 
1955 
1960 
1965 
1970 
1975 
1980 
1985 
1990 
1995 
2000 
2005 
2010 
2015 
2020 
2021 
2025 
2030 
2035 
2040 
2045 


“ОЕ STORAGE FOR THE FOLLOWING ITEMS: 


* 1) XXFILE (12) - 
* 2) XXUNIT (1) - 
. 

* 3) XXPTR (1) 

* 4) XXBUF 

* 5) XXADR (2) 

* 6) XXLEN 


а) - 


(2) - 
*WHERE XX IF WR IF 


CONTAINS THE NAME OF THE SPOOL FILE 
CONTAINS THE NUMBER OF THE DRIVE FOR 


THE ABOVE SPOOL FILE 


*PR IF PRINT SPOOL. 
*THE SPOOL DRIVERS ENTER THESE ROUTINES WITH ALL 
*NECESSARY INFORMATION IN 8080 REGISTERS. 

* 


POINTER TO RAM BUFFER (LOW BYTE) 
POINTER TO RAM BUFFER (HIGH BYTE) 
DISK ADDRESS FOR NEXT READ/WRITE 
DISK FILE LENGTH 

WRITE SPOOL, 


RD IP READ SPOOL, AND 


* DRIVER ROUTINE FOR SPOOL READ 
* H,L -> IOFLAG; D,E -> RDFILE 
* 


GETSPL: PUSH 
LXI 
DAD 
XCHG 
LDAX 
ORA 
cz 
Jc 
CALL 
CALL 
22 
әс 
РОР 
СРІ 
Jz 
ANI 
RET 


LOADHL 
RDDISK 
STOPR 
LNERR 
H 

CR 
CKEYBD 
7FH 


SAVE ADDR OF IOFLAG 
D,E+12->H,L 


H,L -> RDFILE; D,E -> RDUNIT 
CHECK IF READ SPOOL IS OPEN 


OPEN READ SPOOL IF NECESSARY 
BRIF OPEN FAILS 

H,L -> RAM BUFFER 

READ ONE CHAR FROM SPOOL 
STOP SPOOL IF END-OF-FILE 
LENGTH ERROR 

H,L -> IOFLAG 

LOOK FOR END-OF-LINE 

BRIF CR 

TURN OFF BIT 7 


CHECK KEYBOARD AT END-OF-LINE WHEN READ SPOOL 
HALT READ SPOOL IF ANY CHARACTER IS 


* 

* 

* IS ACTIVE. 
* TYPED. 

. 

с CALL 
MVI 
RZ 
MOV 
ORI 
MOV 
XRA 
MVI 
RET 


* 
* 
. 
* 


. 
PUTSPL: МУІ 
CMP 
RZ 
MVI 
CMP 
JZ 
PUSH 
LXI 
DAD 
MOV 
XCHG 
ORA 
cz 
PUSH 
LXI 
MVI 
сс 
РОР 
JNC 
JZ 
CPI 
JZ 
JMP 
CALL 
CALL 
JNC 
32 
JMP 
POP 
RET 


OK1: 


MOV 
ANI 
JZ 
CALL 
JP 
ANI 
MOV 
JMP 
PUSH 
LXI 


PRACT: 


PRLOOP: 


ж 

* SEARCH 
* H,L -> 
* D,E -> 
* RETURN WITH 
* 
s 


PLSRCH: 


GETSTAT 
A,CR 


А,М 
80H 
M,A 
A 


A,CR 


B 
CLSPOOL 
H 

H,12 

D 


А,М 


А 
SPLSRCH 
B 
в,0 
А,7 
СВЕАТЕ 
в 
ок1 
FLERR 
1 
NMERR 
WRERR 
LOADHL 
WRDISK 
ок2 
LNERR 
WRERR 
н 


А,М 

2 
GETCHAR 
PRACT 
GETCHAR 
зон 
M,A 
GETCHAR 
H 


H,12 
D 
А,М 


А 
SPLSRCH 
RDERR 
LOADHL 
A,L 
-38 
STRTM 
-8 

D 

С,А 
B,CC 
SELECT 
RDDISK 
STOPR 
LNERR 
B,A 
PUTCR 
A,CR 

B 


B,LF 
PUTCR 
GETSTAT 
PRLOOP 
H 


'с' 


SEARCH 
NPERR 


7 


PSW 
TYERR 


RESTORE CR 

RETURN IF NO CHAR TYPED 
GET 1/0 CONTROL 

SET ERROR BIT 


RESET FLAGS 
RESTORE CR 


DRIVER ROUTINE FOR SPOOL WRITE 
H,L -> IOFLAG; D,E -> WRFILE 
B-REG CONTAINS CHAR TO OUTPUT 


SKIP LF CHARS 


LOOK FOR END-OF-FILE 

CLOSE WRITE SPOOL WHEN SOH 
(ASCII 1) IS OUTPUT 

SAVE ADDR OF IOFLAG 
D,E*12-^H,L 

H,L -» WRUNIT 

SEE IF WRITE SPOOL IS OPEN 
H,L -> WRFILE; D,E -> WRUNIT 


LOOK FOR SPOOL FILE IF NOT OPEN 
SAVE B,C 

FLAG FOR CREATE ROUTINE 

SET FILE TYPE 

CREATE FILE IF NOT FOUND 
RESTORE B,C 

BRIF NO ERROR 

DISK FULL 


FILE NAME ERROR 

DISK WRITE PROTECT ERROR 
H,L -> RAM BUFFER 

WRITE CHAR TO SPOOL 

BRIF NO ERROR 

LENGTH ERROR 

WRITE PROTECT 

CLEAR ADDR OF IOFLAG 


ROUTINE FOR PRINT SPOOL 
IOFLAG; D,E -> PRFILE 


SEE IF PRINT SPOOL IS ACTIVE 

BIT 1 IS FLAG 

BRIF NOT ACT, GET CHAR FROM KBD 
PRINT SPOOL IS ACTIVE 

BRIF NO ERROR, GET CHAR FROM KBD 
ERROR OR END OF PRINT SPOOL 

KILL BIT 1 & ERROR BIT, SAVE REST 
GO TO KEYBOARD 

SAVE ADDR OF IOFLAG 

D,E+12->H,L 

H,L -> PRUNIT 

SEE IF PRINT FILE IS OPEN 

H,L -> PRFILE; D,E -> PRUNIT 


LOOK FOR SPOOL FILE IF NOT OPEN 
BRIF IF NOT FOUND 

H,L -> RAM BUFFER 

LOOK FOR END OF BUFFER 

START DRIVE MOTORS 

WHEN 38 CHARS LEFT 

SELECT DRIVE, LOAD HEAD 

WHEN 8 CHARS LEFT 


READ ONE CHAR FROM SPOOL 
BRIF END-OF-FILE 
LENGTH ERROR IF "С" SET 
OUTPUT CHAR TO PRINTER 
LOOK FOR CR 

ADD A LINE FEED 


CHECK KEYBOARD STATUS 

BRIF NO CHAR READY 

ELSE CLEAR IOFLAG FROM STACK 
AND RETURN 


DIRECTORY FOR SPOOL FILE 

XXFILE (FILE NAME) 

XXUNIT (DISK UNIT f) 

SET IF FILENAME NOT FOUND 


BAD FILENAME 


CHECK FOR PROPER FILE TYPE 
RETURN, NO ERROR 

CLEAR RETURN ADDRESS 
SIGNAL TYPE ERROR 


1852 
1852 
1852 
1852 
1852 
1853 
1854 
1856 
1857 
185A 
185В 
185С 
185Ғ 
1862 
1865 
1868 
1869 
186В 
186С 
186С 
186С 
186С 
186С 
186С 
186С 
186F 
1871 
1874 
1877 
1878 
1878 
187Е 
1880 
1881 
1882 
1883 
1886 
1887 
188A 
1888 
188C 
188D 
188E 
188F 
1890 
1893 
1896 
1897 
1898 
1899 
189С 
1890 
189Ғ 
18А2 
18А4 
18A7 
18АА 
18AD 
1880 
1883 
1886 
1888 
1889 
188C 
188D 
18С0 
18Cl 
18c3 
18С4 
18С5 
18С8 
18CB 
18СЕ 
1800 
1803 
1806 
1809 
1808 
18DC 


18E7 
18E8 


18F4 
18F5 


1900 
1901 


1912 
1913 
1914 
1915 


1925 
1926 
1926 
1926 
1926 
1926 
1926 
1927 
1928 
1929 
192A 
1928 
192C 
192D 
192D 
192D 
192D 
192E 
192F 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1936 
1936 
1936 
1936 
1936 
1939 
193C 
193E 
193F 
1942 
1945 
1947 
1948 
1948 


3A 
ср 
РЕ 
co 
ЗА 
CD 
F6 
c9 


87 
2E 


01 
2E 


55 
08 
1B 


55 
08 
80 


00 


1А 
18 
1B 
1с 


18 


18 
18 


18 
18 


18 
ic 


19 
іс 


19 


20 
20 


1c 
16 


1c 
16 


50 


53 


46 


54 


20 


4E 


2050 
2055 
2060 
2065 
2070 
2075 
2080 
2085 
2090 
2095 
2100 
2105 
2110 
2115 
2120 
2125 
2130 
2135 
2140 
2145 
2150 
2155 
2160 
2165 
2170 
2175 
2180 
2185 
2190 
2195 
2200 
2205 
2210 
2215 
2220 
2221 
2222 
2225 
2230 
2235 
2240 
2245 
2250 
2255 
2260 
2265 
2270 
2275 
2280 
2285 
2290 
2295 
2300 
2305 
2310 
2315 
2320 
2325 
2330 
2335 
2340 
2345 
2350 
2355 
2360 
2365 
2370 
2375 
2380 
2385 
2390 
2395 
2400 
2405 
2410 
2415 
2420 
2425 
2430 
4F 4F 
2435 
2440 
50 4F 
2445 
2450 
49 4C 
2455 
2460 
20 4E 


2465 
2470 
2475 
2480 
45 57 


2485 
2490 
2495 
2500 
2505 
2510 
2515 
2520 
2525 
2530 
2535 
2540 
2545 
2550 
2555 
2560 
2565 
2570 
2575 
2580 
2585 
2590 
2595 
2600 
2605 
2610 
2615 
2620 
2625 
2630 
2635 
2640 
2645 
2650 
2655 
2660 
2665 
2670 
2675 
2680 


. 
* CLOSE WRITE SPOOL 
* H,L -> IOFLAG; D,E -> WRFILE 
* 
CLSPOOL: PUSH H SAVE ADDR OF IOFLAG 
MOV А,М 
ANI BBH KILL BIT 2, SAVE ERROR FLAG 
MOV M,A UPDATE IOFLAG 
LXI н,12 D,E+12->H,L 
DAD D 
XCHG H,L -» WRFILE; D,E -> WRUNIT 
CALL CLSIT CLOSE SPOOL IF OPEN 
JC  CLSERR 
LXI —H,CLOSED PRINT 'CLOSED' MESSAGE 
CALL PMSG 
POP H RESTORE STACK 
ORI 80H SET 'M' FLAG 
RET 
. 
* CHANGE МАМЕ OF READ SPOOL FILE - ESC 'R' 
* CHANGE NAME OF WRITE SPOOL FILE- ESC ‘Ww! 
* CHANGE NAME OF PRINT FILE - ESC '0' 
* D,E -> SPLFILE 
К 
RDNAME: LXI Н,НЕАрЫ 
MVI А,19 OFFSET FOR RDFILE 
JMP СМАМЕ 
WRNAME: LXI H,WRITEN 
ХВА А OFFSET FOR WRFILE 
JMP GNAME 
PRNAME: LXI — H,PRINTN 
MVI — A,38 OFFSET FOR PRFILE 
GNAME: PUSH D D,E -» SPLFILE 
ADD Е ADD OFFSET TO XXFILE 
MOV Е,А D,E -» XXFILE 
JNC $4 
INR D BUMP D-REG IF NECESSARY 
CALL PMSG PRINT SPOOL TYPE MESSAGE 
POP H H,L -> SPLFILE 
pcx н SAVE POINTER TO XXFILE 
MOV  M,D FOR LOAD ROUTINE 
DCX н 
MOV  M,E 
PUSH H 
LXI — H,CURR 
CALL PMSG 
MOV H,D PRINT CURRENT SPOOL FILE NAME 
MOV  L,E 
NAME: MOV А,М 
CALL DISPLAY 
INX H 
СРІ св STOP ОМ CR 
32 OKNAME BRIF PROPER TERM 
CPI P 
JNC МАМЕ BRIF IF VALID CHAR 
LXI H,BADNM SET MSG FOR BAD FILE NAME 
CALL PMSG PRINT IT 
OKNAME: LXI Н,МЕН 
CALL PMSG PRINT NEW PROMPT 
CALL GETCHR GET FIRST CHAR 
CPI CR TO SEE IF NAME SHOULD BE CHANGED 
POP H 
32 RETM BRIF NO CHANGE DESIRED 
PUSH H 
LXI  H,12 D,E+12->H,L 
DAD р H,L -> XXUNIT 
MVI м,0 INDICATE FILE IS 'CLOSED' 
XCHG H,L -> XXFILE 
POP D D,E -> SPLFILE-2 
CALL LOAD+3 USE LOAD STACK ROUTINE TO 
LXI Н,ВАОЫМ ENTER NEW NAME 
CM PMSG 
CPI  CTRLC 
cz PMSG 
RETM: LXI — H,CRLF 
CALL PMSG NEW LINE 
ORI 80H SET 'M' FLAG 
RET 
READN: ASC ‘READ SPOOL ' 
4c 20 
DB 0 
WRITEN: ASC 'ИВ1ТЕ SPOOL " 
4F 4c 20 
DB 0 
PRINTN: ASC 'PRINT FILE ' 
45 20 
DB 0 
CURR: ASC "CURRENT NAME IS: ' 
41 4D 45 20 
DB о 
МЕМ: DB — CR 
DB LF 
ASC ‘ENTER NEW NAME: ' 
20 4Е 41 4D 
DB 0 
* 
* MISCELLANEOUS SUBROUTINES 


* SIMULATE А SHLD AT ADDRESS IN D,E 


* 
UPDATE: 


SAVE LOW BYTE 
SAVE HIGH BYTE 


* SIMULATE А LHLD FROM ADDRESS IN р,Е+1 


* 
LOADHL: 


* GET А CHAR FROM KBD, 
* AND FLAG BIT 7 TO INDICATE "ESCAPE SEQUENCE" 


* 
GETCHR: 


IODEV 
USRCIN 
ESC 


IODEV 
USRCIN 
вон 


IF ESCAPE THEN GET ANOTHER CHAR 


СЕТ А CHAR FROM 
SELECTED DEVICE 

LOOK FOR "SPOOL CONTROL" 
GET ANOTHER CHARACTER 


SET CONTROL FLAG 


*GET STATUS OF SELECTED INPUT DEVICE 


S-100 MICROSYSTEMS 


1948 
1948 
1948 
1948 
1948 
1948 
194А 
194С 
1940 
1940 
1940 
1940 
194F 
194F 
194F 
194F 
1950 
1951 
1953 
1956 
1957 
1958 
1958 
1958 
1958 
195A 
195D 
195D 
195D 
195D 
195D 
195D 
195D 
195D 
195D 
195D 
1950 
1950 
1950 
195Е 
195F 
1961 
1962 
1965 
1966 
1967 
1968 
1969 
196A 
1968 
196С 
1960 
196Е 
196F 
1970 
1972 
1973 
1974 
1975 
1977 
1979 
197С 
1970 
197Е 
197F 
197F 
197F 
197F 
197F 
197F 
197F 
197F 
197F 
197F 
1980 
1981 
1984 
1985 
1986 
1987 
1988 
198A 
198B 
198D 
198E 
198F 
1990 
1993 
1994 
1995 
1996 
1998 
1999 
199c 
199D 
199Е 
199F 
1942 
1943 
19A5 
19А6 
19А7 
19А8 
19А8 
19А8 
19А8 
19А8 
19A8 
19А8 
19А8 
19А8 
19А8 
19А8 
19А8 
19А8 
19А9 
19AA 
19AB 
19АС 
19AD 
19AE 
19AF 
1982 
1983 
1984 
1985 
1988 
1989 
198A 
198D 
19ВЕ 
19BF 
19С0 
19С1 
19c2 
19c3 
19c4 


DB 
Еб 
c9 


3E 


cs 
47 
3E 
ср 
сі 
c9 


3E 
c3 


00 
00 


07 


00 
05 16 


01 
05 16 


80 
22 18 


03 


A8 19 


96 19 


03 
01 


АВ 19 


22 1B 


26 19 


B3 19 


2D 19 


C3 19 


2685 
2690 
2695 
2700 
2705 
2710 
2715 
2720 
2725 
2730 
2735 
2740 
2745 
2750 
2755 
2760 
2765 
2770 
2775 
2780 
2785 
2790 
2795 
2800 
2805 
2810 
2815 
2820 
2825 
2830 
2835 
2840 
2845 
2850 
2855 
2860 
2865 
2870 
2875 
2880 
2885 
2890 
2895 
2900 
2905 
2910 
2915 
2920 
2925 
2930 
2935 
2940 
2945 
2950 
2955 
2960 
2965 
2970 
2975 
2980 
2985 
2990 
2995 
3000 
3005 
3010 
3015 
3020 
3025 
3030 
3035 
3040 
3045 
3050 
3055 
3060 
3065 
3070 
3075 
3080 
3085 
3090 
3095 
3100 
3105 
3110 
3115 
3120 
3125 
3130 
3135 
3140 
3145 
3150 
3155 
3160 
3165 
3170 
3175 
3180 
3185 
3190 
3195 
3200 
3205 
3210 
3215 
3220 
3225 
3230 
3235 
3240 
3245 
3250 
3255 
3260 
3265 
3270 
3275 
3280 
3285 
3290 
3295 
3300 
3305 
3310 
3315 
3320 
3325 
3330 
3335 
3340 
3345 
3350 
3355 
3360 
3365 


*THIS ROUTINE MUST ВЕ MODIFIED ТО PARTICULER 
*1/O CONFIGURATION, RETURN WITH Z-FLAG SET IF 
*NO CHARACTER IS READY ON KEYBOARD 
*** NOTE: THE 0'5 ARE CHANGED BY THE DOSPOOL ROUTINE 
. 
GETSTAT: IN 0 "ADDRESS" OF KEYBOARD STATUS PORT 
ANI 0 KEYBOARD READY BIT 
RET 
* 
*RING BELL ON TERMINAL 
* 
DSPBELL: MVI A,BELL 
. 
*OUTPUT CHARACTER (A-REG) TO CRT (DEVICE 0) 
* 
DISPLAY: PUSH B 
MOV В,А GET CHARACTER IN B-REG 
MVI А,0 SELECT DEVICE 0 
CALL USRCOUT 
POP В RESTORE B 
RET 
. 
OUTPUT CHARACTER (B-REG) TO PRINTER (DEVICE 1) 
PUTCR: MVI А,1 
JMP — USRCOUT 
. 
*THESE ROUTINES DO DISK I/O FOR THE DISK AND SPOOL 
*DRIVERS. ALL POINTERS ARE PASSED IN THE REGISTERS AS 
INDICATED AT THE BEGINNING OF FACH ROUTINE. 
* ENTRY TO WRITE CHAR IN B-REG TO DISK. 
* H,L -» RAM BUFFER 
* D,E -» WRUNIT 
* RETURN WITH 'C' SET IF ERROR 
* IF ERROR: "2! SET FOR LENGTH ERROR, 
* RESET FOR DISK WRITE PROTECT 
* 
WRDISK: MOV M,B SAVE CHAR IN BUFFER 
XCHG 
MVI A,80H CHECK IF HALF-WAY THROUGH 
CMP E BUFFER 
CZ — CKMOTOR BRIF HALF-WAY 
INX H POINT TO WRBUF 
XRA A CLEAR ALL FLAGS 
INR Е UPDATE POINTER 
МОУ M,E LOW BYTE 
DCX H RESTORE H,L AND 
XCHG D,E TO VALUE AT ENTRY 
RNZ RETURN IF BUFFER IS NOT FULL 
PUSH H ELSE WRITE BUFFER TO DISK 
PUSH D SAVE REGS 
XCHG 
MOV AM GET DISK DRIVE # 
ANI 3 REMOVE POSSIBLE 'M' FLAG 
MOV С.А SET UP REGISTERS 
INX H SKIP WRBUF ADDRESS 
INX H H,L -> WRBUF 
MVI 8,0 SET DISK WRITE COMMAND 
MVI А,1 SET LENGTH TO 1 BLOCK 
CALL DODSK WRITE BLOCK TO DISK 
POP D D,E -» WRUNIT 
POP H H,L -» RAM BUFFER 
RET 'C' FLAG SET IF ERROR 
. 
* ENTRY TO READ A CHAR FROM DISK FILE. 
* SAME ENTRY FOR BOTH DISK AND SPOOL DRIVERS. 
* H,L -> RAM BUFFER 
* D,E -» RDUNIT 
. 
* RETURN CHARACTER IN A-REG. 
* '2' FLAG SET ІР EOF (l); "С" FLAG SET IF LENGTH ERROR. 
* 
RDDISK: ХВА A TEST LOW BYTE OF BUFFER 
ORA L ADDRESS FOR ZERO 
JNZ GETIT ZERO MEANS ANOTHER BLOCK 
PUSH H SHOULD BE READ FROM THE 
PUSH D DISK SPOOL 
хснс H,L -> RDUNIT 
MOV A.M GET DISK DRIVE 4 
ANI 3 REMOVE POSSIBLE 'M' FLAG 
MOV С,А SET UP REGISTERS 
MVI B,1 SET READ COMMAND 
MOV А,В SET LENGTH TO 1 BLOCK 
INX H POINT TO DISK ADDRESS 
INX H 
CALL DODSK GET ANOTHER BLOCK 
POP D D,E -> RDUNIT 
POP H H,L -> RAM BUFFER 
RC *C' SET FOR LENGTH ERROR 
GETIT: MVI  A,80H CHECK IF HALF-WAY 
CMP L THROUGH BUFFER 
CZ CKMOTOR BRIF HALF-WAY 
MOV A,M GET CHAR FROM BUFFER 
INR L SET NEXT BUFFER ADDRESS 
INX D POINT TO RDPTR 
CALL UPDATE SAVE NEW BUFFER ADDRESS 
DCX D POINT TO RDUNIT 
cer 1 LOOK FOR END-OF-SPOOL 
RNC 'Z' FLAG SET IF EOF 
смс RESET "С" FLAG IF NULL CHAR 
RET READ FROM DISK 


DISK COMMAND 


SUBROUTINE TO READ OR WRITE 


ONE BLOCK OF 


THE DISK FILE 


H,L -> XXBUF 


D,E -> START OF RAM BUFFER 


B CONTAINS DISK COMMAND CODE 


А CONTAINS # OF BLOCKS TO READ/WRITE 


RETURN 


IF ERROR: 


WITH 


"С" SET IF ERROR 


72" SET FOR LENGTH ERROR, 


RESET FOR DISK WRITE PROTECT 


. 
. 
* 
* 
* 
. 
* C CONTAINS DISK UNIT NUMBER 
* 
. 
* 
* 
* 
D 


ODSK: PUSH  PSW SAVE LENGTH 

PUSH D SAVE BUFFER ADDR 
INX H POINT TO XXADR 
MOV Е,М GET LOW BYTE OF DISK ADDR 
INR M UPDATE DISK ADDR FOR NEXT 
INX H DISK COMMAND 
MOV DM GET HIGH BYTE OF DISK ADDR 
он? $+1 
INR м UPDATE HIGH BYTE IF NEEDED 
PUSH D SAVE DISK ADDRESS 
XCHG D,E -> XXADR (HIGH BYTE) 
CALL LOADHL H,L <- FILE BLOCKS REMAINING 
MOV A,H LOOK FOR ZERO BLOCKS REMAINING 
ORA L 
JNZ OKLEN BRIF 1 OR MORE BLOCKS LEFT 
POP D CLEAR STACK 
POP D 
POP D 
ХАА А SET 'Z' FOR LENGTH ERROR 
STC SET 'C' FLAG FOR ERROR 
RET 

OKLEN: DCX H 1 LESS BLOCK REMAINING 
INX D D,E -> XXLEN (LOW) 


S-100 MICROSYSTEMS 


19c5 
19c8 
19c9 
19СА 
19СВ 
19СЕ 
19СР 
1901 
1902 
1903 
1903 
1903 
1903 
1903 
1903 
1903 
1903 
1903 
1903 
1905 
1908 
1909 
19DA 
1908 
190С 
19DE 
19DF 
19DF 
19DF 
19DF 
19DF 
190Е 
19DF 
19E0 
1951 
1983 
1964 
1955 
19Е7 
19Е8 
19Е9 
19ЕА 
19ЕВ 
19ЕС 
19EF 
19Ғ0 
19F1 
19F2 
19F3 
19F3 
19F3 
19F3 
19F3 
19F3 
19Е3 
19F3 
19F3 
19F3 
19F3 
19F3 
19Р4 
19F5 
19Ғ6 
1928 
19FB 
19FE 
19FF 
1402 
1А03 
1A04 
1А05 
1A06 
1A07 
1A08 
1A0B 
1A0D 
1А0Е 
1A0F 
1А11 
1А12 
1A13 
1A16 
1А17 
1А1А 
1А10 
1А1Е 
1А21 
1А22 
1А25 
1А26 
1А29 
1A2A 
1A2B 
1А2С 
1A2D 
1А2Е 
1A2F 
1430 
1А31 
1A32 
1433 
1834 
1A35 
1A36 
1A37 
1АЗА 
1А3В 
1А3С 
1A3E 
1A3F 
1A41 
1A42 
1А44 
1А47 
1А49 
1А4С 
1А4Е 
1A51 
1А54 
1А55 
1А56 
1А57 
1A58 
1А5В 
1А5Е 
1ASF 
1А62 
1А65 
1A68 
1A69 
lA6C 
1A6D 
1АбЕ 
1871 
1472 
1473 


CD 26 19 


Е1 
Dl 
Fl 
cD 
00 
ЗЕ 
87 
c9 


22 
81 


01 
07 


80 


1D 
5E 


01 


72 


72 
2c 


Al 
71 
71 


20 


іс 
1A 


1A 


1A 


1А 


1А 
1А 


РЕ 
1А 
1А 


РР 


1А 
1А 


1A 
1A 


1A 
20 


1A 
20 
20 


20 


19 


3370 
3375 
3380 
3385 
3390 
3395 
3400 
3405 
3410 
3415 
3420 
3425 
3430 
3435 
3436 
3440 
3445 
3450 
3455 
3460 
3465 
3470 
3475 
3476 
3480 
3485 
3490 
3495 
3500 
3505 
3510 
3515 
3520 
3525 
3530 
3535 
3540 
3545 
3550 
3555 
3560 
3565 
3570 
3575 
3580 
3585 
3590 
3595 
3600 
3605 
3610 
3615 
3620 
3625 
3630 
3635 
3636 
3637 
3640 
3645 
3650 
3655 
3660 
3665 
3670 
3675 
3680 
3685 
3690 
3695 
3700 
3705 
3710 
3715 
3720 
3725 
3730 
3735 
3740 
3745 
3750 
3755 
3760 
3765 
3770 
3775 
3780 
3785 
3790 
3795 
3800 
3805 
3810 
3815 
3820 
3825 
3830 
3835 
3840 
3845 
3850 
3855 
3860 
3865 
3870 
3875 
3880 
3885 
3890 
3895 
3900 
3905 
3910 
3915 
3920 
3925 
3930 
3935 
3940 
3945 
3950 
3955 
3960 
3961 
3962 
3963 
3964 
3965 
3966 
3967 
3970 
3975 
3980 
3985 
3990 
3995 


CALL 
POP 
POP 
POP 
CALL 
RNC 
MVI 
ADD 
RET 


SEARCH 
H,L -> 
D,E -> 
RETURN 
RETURN 
RETURN 


WITH 
WITH 


теъ» ж» 


EARCH: МУІ 
CALL 
XCHG 
MOV 
RC 
RZ 
ORI 
MOV 


UPDATE 
H 

D 

PSW 
DCOM 


A, 81H 
A 


'с' 


А,1 
DIRLOOK 


M,A 


80H 
M,A 


SAVE H,L -> (D,E) 

H,L -> DISK ADDRESS 

D,E -> START OF RAM BUFFER 
RETRIEVE LENGTH 

ISSUE DISK COMMAND 

RETURN IF NO ERROR 


А=2 FOR DISK WRITE PROTECT 
"С! IS SET 


DIRECTORY FOR FILENAME 

XXFILE (FILE NAME) 

XXUNIT (DISK UNIT 4) 

SET IF FILENAME NOT FOUND 

'2' SET IF BAD FILENAME 

WITH H,L->XXUNIT; D,E->DIR ENTRY OR DISK ADDR 
SET XXUNIT TO DISK DRIVE #; 


'M' FLAG IF FILE EXISTS 


DEFAULT TO DISK DRIVE 41 


D,E -> DIR ENTRY OR DISK ADDR 
H,L -> XXUNIT; SAVE UNIT % 
RETURN IF FILE NAME NOT FOUND 
RETURN IF BAD FILENAME 

SET 'M' FLAG IF FILE NAME FOUND 
DON'T CHANGE DIR LENGTH ON CLOSE 


MOVE DISK ADDR AND FILE LENGTH FROM DIRECTORY ENTRY 
TO FILE TABLE ENTRY. 
H,L -> XXUNIT; D,E -> DIRECTORY ENTRY 


* 
* 
. 
* 
* RETURN WITH FILE TYPE IN A-REG. 
* 
5 


POINT TO LOW BYTE ОР ВА’ 
START ON 100H BOUNDARY 
POINT TO DISK ADDRESS 


BUFFER 


GET DISK ADDRESS AND FILE LENGTH 
FROM DIRECTORY AND MOVE 
TO XXADR AND XXLEN 


GET FILE TYPE FROM DIRECTORY 
BE SURE "С" FLAG IS CLEAR 
D,E -» XXUNIT 


CREATE А DIRECTORY ENTRY FOR DISK FILE 


D,E CONTAINS DISK ADDRESS FOR NEW FILE 


IF 0 ALLOC ALL AVAIL SPACE 


SET IF ERROR 
IF ERROR: А=0 ('Z' SET) IF DISK FULL 
Аз1 ('Z' RESET) IF BAD FILE NAME 
A=2 ('Z' RESET) IF DISK WRITE PROTECT 


SAVE FILE TABLE ADDRESS 

SAVE FILE TYPE 

GET DISK DRIVE # 

REMOVE POSSIBLE 'M' FLAG 

POINT TO BLANK "NAME" 

LOCATE BLANK DIRECTORY ENTRY 
SAVE POINTER TO DIRECTORY ENTRY 
ERROR IF DIRECTORY IS FULL 
MOVE DISK ADDRESS TO DIRECTORY 


POINT TO LENGTH ENTRY 
SEE IF LENGTH IS ZERO 


SET LENGTH TO CONTENTS OF B,C 
COMPUTE FILE LENGTH AS 
350-DISK ADDR (E.G. USE ALL 
AVAILABLE DISK SPACE FOR SPOOL) 


D,E CONTAINS SPOOL FILE LENGTH 
ERROR IF DISK IS FULL 
OR IF NEW FILE HAS 0 LENGTH 


SAVE POINTER TO LENGTH ENTRY 


ADD LENGTH 

LENGTH >350 BLOCKS 
ADD DISK ADDRESS 
FILE TOO LONG 


USE LENGTH IN B,C 


MOVE LENGTH TO DIRECTORY 


POINT TO TYPE 

D,E -» DIRECTORY ENTRY (BYTE 8) 
GET FILE TYPE 

SET FILE TYPE 

H,L -» DIRECTORY ENTRY 

D,E -> XXUNIT 


MOVE SPOOL FILE NAME FROM XXFILE 
TO DIRECTORY ENTRY AT H,L 

D,E -> START OF DIRECTORY ENTRY 
SET B,C TO OFFSET OF XXFILE (-12) 
H,L -> XXFILE 

COUNT FOR FILE NAME LENGTH 

MOVE NAME 
STOP ON ',' DELIMETER 


STOP ON CR 


STOP ON BLANK 


KILL IF BAD CHAR 


NEXT CHAR 


CHECK COUNT 
GET “С TV 


SET UP TV FOR DISK 
WRITE PROTECT 

WRITE DIRECTORY TO DISK 
RESTORE ORIGINAL TV 


D,E -> DIRECTORY ENTRY 

H, L -> XXUNIT 

MOVE DIR TO XXADR AND XXLEN 
RESTORE STACK 

RESTORE STACK 


RCONT: PUSH H 
INX H 
MVI м,0 
INX H 
INX H 
MVI C,4 
MOVDIR: LDAX D 
MOV M,A 
INX р 
INX H 
DCR C 
JNZ MOVDIR 
LDAX D 
ORA A 
POP D 
RET 
е 
* 
* A-REG CONTAINS FILE TYPE 
* H,L -» XXUNIT 
* 
* B,C CONTAINS FILE LENGTH, 
* RETURN WITH 'C' 
* 
* 
* 
* 
CREATE: PUSH H 
PUSH PSW 
МОУ A,M 
AND 3 
LXI — H,BLANK 
CALL DIRLOOK 
PUSH H 
3c DSKFULL 
MOV M,E 
INX H 
MOV M,D 
INX H 
MOV A,B 
ORA С 
JNZ USEBC 
MVI A,94 
SUB Е 
MOV Е,А 
MVI A,1 
SBB D 
моу  D,A 
әс DSKFULL 
ORA Е 
J2 DSKFULL 
JMP — MOVLN 
USEBC: PUSH H 
LXI — H,-351 
DAD 
3c DSKFL 
DAD 
ac DSKFL 
POP H 
MOV B,C 
MOV  D,B 
MOVLN: MOV M,E 
INX H 
MOV M,D 
INX H 
POP D 
POP PSW 
MOV M,A 
XCHG 
POP D 
PUSH D 
PUSH H 
LXI B,-8 
DAD B 
XCHG 
MVI C,.-12 
DAD B 
MVI C,8 
MOVNM: MOV AM 
CPI №,’ 
JZ WRDIR 
CPI CR 
Jz WRDIR 
2 '' 
220 WRDIR 
Jc DSKNAME 
STAX D 
INX H 
INX D 
осв C 
JNZ — MOVNM 
WRDIR: ІНІ DOSERR*l 
PUSH H 
LXI —H,DSKWP 
SHLD DOSERR+1 
CALL DWRIT 
POP Н 
SHLD DOSERR+1 
POP р 
POP H 
JMP  SRCONT 
DSKFL: POP H 
DSKFULL: POP H 
XTHL 


THROW AWAY FILE TYPE 


41 


1474 
1А75 
1А76 
1477 
1A78 
1А79 
1А7В 
1А7С 
1A7D 
1A7E 
1А7Ғ 
1A80 
1А81 
1A82 
1A85 
1487 
1A8A 
1A8A 
1A8A 
1A8A 
1A8A 
1A8A 
1A8A 
1A8A 
1A8A 
1A8A 
1А8С 
1А80 
1A8F 
1A90 
1A91 
1А92 
1А93 
1А96 
1А98 
1A9A 
1A9B 
1А9С 
1490 
1А9Р 
1АА2 
1AA3 
1AA4 
1АА5 
1АА6 
1AA8 
1AAB 
1AAE 
1ABO 
1АВ1 
1АВ2 
1АВЗ 
1АВ4 
1АВ5 
1АВ6 
1АВ7 
1AB8 
1AB9 
1ABA 
1ABB 
1ABC 
lABD 
lABE 
1АВР 
1АС0 
1АС1 
1АС2 
1АС3 
1АС4 
1АС7 
1АС8 
1АС9 
1АСС 
1ACD 
1АСЕ 
lACF 
lADO 
1AD1 
1AD2 
1AD5 
1AD6 
1AD7 
1AD7 
1AD7 
1AD7 
1А07 
1AD7 
1AD7 
1Ар7 
1AD7 
1AD7 
1AD7 
1А08 
1А09 
1ADA 
1ADD 
1AEO 
1AE3 
lAE6 
lAE9 
lAEA 
1AED 
1AFO 
1AF1 
1АҒ4 
lAF5 
lAFB 
1AFB 
1AFE 
1AFF 
1B00 
1B01 
1804 
1B05 
1806 
1B07 
1B08 
1B09 
1В0С 
1В00 
1В0Е 
1811 
1812 
1813 
1814 
1815 
1816 
1816 
1816 
1816 
1816 
1816 
1819 
1818 
lBlC 
181E 
1821 


42 


01 


2D 
02 
78 


00 
03 


20 
01 
00 


01 
АВ 


03 
D7 
B2 
82 


св 


CD 


06 


58 


B7 


90 
10 


59 
03 


20 
1А 


19 


19 


1А 
1^ 


1A 


1А 


1в 


іс 


28 


20 


4000 ХАА А SET '2' FLAG 

4005 STC INDICATE ERROR 

4010 РОР Нн 

4015 POP D H,L -> DIR ENTRY; D,E -> XXUNIT 
4020 RET 

4021 DSKNAME: MVI А,1 SEND ERROR CODE 

4022 ORA А 

4023 STC 

4024 POP H 

4025 POP D 

4026 RET 

4027 DSKWP: POP H CLEAR RETURN ADDRESS 

4028 РОР Н СЕТ ORIGINAL ТУ 

4029 SHLD DOSERR+1 RESTORE TV 

4030 MVI A,2 SEND ERROR CODE 

4031 JMP DS KNAME+2 

4034 * CLOSE A FILE ON THE DISK 

4035 * H,L -> WRFILE; D,E -> WRUNIT; B,C IS USED 

4040 * A-REG CONTAINS DISK DRIVE # 

4045 * 'M' FLAG SET IN WRUNIT MEANS DON'T CHANGE 

4050 * LENGTH ENTRY IN DIRECTORY 

4055 * RETURN WITH 'C' FLAG IFF ERROR 

4060 * IF ERROR: 'Z' SET FOR LENGTH ERROR, RESET FOR OTHER 
4055 % IF ERROR: A-2 FOR WRITE PROTECT, A-4 FOR BAD FILENAME 
070 * 

4075 CLSIT: MVI B,0 SET DISK WRITE COMMAND 
4080 ШАХ D GET DISK DRIVE # 

4085 ANI 3 REMOVE POSSIBLE 'M' FLAG 
4090 RZ RETURN IF FILE NOT OPEN 
4095 MOV С,А 

4100 PUSH D SAVE REGS 

4105 PUSH H 

4110 CALL LOADHL H,L -> RAM BUFFER 

4115 MVI M,l WRITE END-OF-FILE MARK 
4120 мут 1,0 H,L -> START OF BUFFER 
4125 XCHG 

4130 INX н 

4135 INX н H,L -> WRBUF 

4140 MVI А,1 WRITE 1 BLOCK 

4145 CALL DODSK WRITE FINAL BLOCK TO DISK 
4150 POP Н H,L -» WRFILE 

4155 POP D D,E -» WRUNIT 

4160 RC RETURN IF LENGTH ERROR 
4165 LDAX D GET DISK UNIT # 

4170 ANI 3 REMOVE POSSIBLE 'M' FLAG 
4175 CALL DIRLOOK FIND DIRECTORY ENTRY 

4180 JNC $44 

4185 MVI A,82H BE SURE 'Z' IS RESET AND 'C' SET 
4190 ADD А=4 FOR BAD FILENAME 

4195 RET 

4200 LDAX D GET DISK UNIT # 

4205 ORA А 

4210 PUSH PSW SAVE 'M' FLAG 

4215 XRA А 

4220 STAX D ZERO DISK UNIT NUMBER 
4225 INX D 

4230 INX D 

4235 INX D D,E -> WRADR (CURR DISK ADDR) 
4240 LDAX D 

4245 SUB M H,L -> START DISK ADDR 
4250 MOV С,А COMPUTE LENGTH OP DISK FILE 
4255 INX р 

4260 INX H 

4265 LDAX D 

4270 SBB м 

4275 MOV В,А B,C CONTAINS FILE LENGTH 
4280 INX H H,L -> DIR ENTRY FOR LENGTH 
4285 POP PSW GET SAVE SIZE FLAG 

4290 JM $41 DON'T CHANGE LENGTH IN 
4295 MOV M,C DIRECTORY IF 'M' FLAG 
4300 INX н 

4305 JM $41 

4310 MOV  M,B UPDATE DISK FILE LENGTH 
4315 INX н БКІР ТҮРЕ ВҮТЕ 

4320 INX H H,L -> OTHER DIR INFO 
4325 MOV M,C ALWAYS SAVE ACTUAL LENGTH 
4330 INX H IN THIS FIELD IN DIRECTORY 
4335 MOV  M,B 

4340 CALL DWRIT WRITE DIRECTORY TO DISK 
4345 XRA А RESET ALL FLAGS 

4350 RET 

4355 * 

4360 * LOOK UP FILENAME IN DISK DIRECTORY 

4365 * H,L -> XXFILE; A-REG CONTAINS DRIVE Ф 

4370 * RETURN WITH 'C' RESET IF FILENAME FOUND 

4375 * H,L -> DIRECTORY ENTRY 

4380 * RETURN WITH 'C' SET IF FILENAME NOT FOUND 

4385 * H,L CONTAINS DISK ADDR 

4390 * ON RETURN A-REG CONTAINS DISK DRIVE # 

4391 * IF А=0 ('Z' SET) THEN FILENAME IS BAD 
4395 * 

4400 DIRLOOK: PUSH B SAVE REGS 

4405 PUSH D 

4406 PUSH H 

4407 ІНІ) DOSERR+1 GET ERROR TV 

4408 SHLD SAVERR HOLD IT 

4409 LXI H,FILNM SET TV FOR BAD FILENAME 
4410 SHLD  DOSERR*1 

4411 LXI н,0 ALSO SAVE STACK POINTER 
4412 DAD SP 

4413 SHLD SAVSTK 

4415 LHLD DOSPTNR SAVE DOS POINTER FOR DOS INPUT 
4420 XTHL ROUTINE WHICH MAY BE ACTIVE 
4425 CALL  DLOOK DOS DIRECTORY LOOK UP 
4430 XTHL 

4435 SHLD DOSPTNR RESTORE DOS POINTER 

4436 LHLD SAVERR RESTORE ERROR TV 

4437 SHLD DOSERR+1 

4440 РОР Н 

4445 РОР D 

4446 РОР В 

4447 әс 5%2 

4448 ORA А BE SURE 'Z' IS RESET 
4449 RET 

4450 ORA А 

4451 STC 

4452 RET 

4453 FILNM: LHLD SAVSTK RESTORE STACK POINTER 
4454 SPHL 

4455 POP Н RESTORE DOS POINTER 

4456 SHLD DOSPTNR 

4457 POP D ADJUST STACK 

4458 РОР В 

4459 XRA А SET ZERO 

4460 STC ALSO FILENAME NOT FOUND 
4461 RET 

4462 * 

4465 * ROUTINES TO CONTROL DISK DRIVE MOTORS AND HEAD LOADING 
4470 * 

4475 * TURN ON MOTORS, IF OFF INDICATE NO DRIVE SELECTED 
4480 * 

4485 STRTM: LDA RESET TURN ON MOTORS, READ A STATUS 
4490 ANI мо LOOK АТ MOTOR-ON BIT 

4495 RNZ DONE IF MOTORS WERE ON 
4500 MVI A,NOSEL SET FLAG FOR NO DRIVE 
4505 STA DRVSEL SELECTED 

4510 RET 


1B22 
1B22 
1B22 
1822 
1822 
1825 
1827 
1828 
1828 
182C 
182C 
182C 
1B2C 
182C 
1B2F 
1830 
1831 
1832 
1833 
1836 
1837 
1837 
1837 
1837 
1B3A 
1B3D 
1B40 
1B43 
1844 
1847 
1В4А 
1840 
1850 
1851 
1В54 
1857 
1В5А 
1850 
1В5Е 
1B61 
1864 
1B65 
1B68 
1B6B 
1В6Е 
1870 
1873 
1876 
1879 
1В7С 
1B7F 
1B82 
1884 
1B85 
1886 
1886 
1886 
1886 
1887 
1888 


189C 
189D 


1ВА7 


1881 
1882 
1BB3 
1884 


1BBD 
1BBE 


1BCB 
1всс 
1вср 
1ВСЕ 


1BDB 
1BDC 


1BED 
1ВЕЕ 
lBEF 
1ВРО 


1BFD 
1BFE 
1ВЕҒ 
1С00 


1cOF 
1clo 


1С18 


1C2B 
1С2С 
1c2D 
1С 2Е 
1С 2Е 
1С2Е 
lc2E 
1C2E 
1C2F 
1c30 
1c31 
1c32 
1С35 
1c36 
1c39 
1c39 
1c39 
1c3c 
1c3c 
1c3c 
1c3c 
1с3С 
1с3С 
1C3F 
1c42 
1С45 
1С46 
1С49 
1С4А 
1c4B 
1c4D 
1C4E 
lc4F 
1c50 
1С50 
1С50 


ср 
21 
ср 
El 
CD 
AF 
12 
3E 
B6 
77 
сә 


10 
10 


90 


03 


03 


49 
20 
54 


45 
20 
4E 
20 


49 
20 


41 
46 


41 
46 


50 
4C 
53 


4C 
45 


50 
4C 
4c 


20 
20 
41 
45 
55 


4F 


2E 


EB 


20 


20 


19 
іс 


1B 


іс 
1В 
ic 


19 


52 
43 


50 
4F 


55 


4С 


* 
* 
* 
* 

CKMOTOR: 


* SELECT DISK UNIT, 


LDA 
ANI 
RZ 

LDA 
RET 


CHECK IF DISK DRIVE MOTORS ARE ON 
RESET MOTOR TIMER IFF ON 


READA READ A STATUS BYTE 

MO LOOK AT MOTOR-ON BIT 
FORGET IT IF MOTORS OFF 

RESET 


LOAD HEAD 


* C «- DRIVE NUMBER; В <- CONTROLLER COMMAND 


* 
SELECT: 


DRVSEL 

c SEE IF DESIRED DRIVE IS 
ALREADY SELECTED, DONE IF SO 

B SELECT DRIVE 

A,C UPDATE CURRENT DRIVE 

DRVSEL SELECTED 


* ERROR ROUTINES FOR SPOOL PROBLEMS 
. 


WRERR: 
LNERR: 


RDERR: 


FLERR: 


NPERR: 
NMERR: 


TYERR: 


CLSERR 


ESCERR: 


* 


LXI 
JMP 
LXI 
JMP 
XCHG 
LXI 
JMP 
LXI 
JMP 
POP 
LXI 
JMP 
LXI 
JMP 
PUSH 
LXI 
CALL 
POP 
LXI 
JZ 
LXI 
CPI 
JZ 
LXI 
JMP 
LXI 
CALL 
CALL 
MVI 
ORA 
RET 


H, BADPAR 
STOP 

H, TOLONG 
STOP STOP SPOOL ACTIVITY 


D,E POINTS TO RDUNIT 


H, RDNF PRINT MESSAGE FOR READ 
STOP SPOOL NOT FOUND 

H,FULL SET MSG FOR DISK FULL 
STOP 

H CLEAR RET ADDR (SEE SPLSRCH) 
H,BADNM SET MSG FOR BAD FILE NAME 
STOP 

H,BADTYP PRINT MESSAGE FOR 

STOP WRONG FILE TYPE ON SPOOL 
PSW SAVE ERROR CODE 

H,BADCLS ERROR ON CLOSE 

PMSG 

PSW GET ERROR CODE 

H,FULL DISK FILE FULL IF 

STOP '2' SET, ELSE 

H,NF FILENAME NOT FOUND IF 

4 ERROR CODE IS 4 

STOP 

H,BADPAR ELSE DISK IS WRITE PROTECTED 
STOP STOP SPOOL 

H,BADESC 

PMSG 

DSPBELL 

А, ВОН SET ERROR ВІТ 

A AND FLAGS 


* ÉRROR MESSAGES FOR SPOOL PROBLEMS 
* 


BADPAR: 
45 2D 50 
44 

RDNF: 

4C 


NF: 
44 


FULL: 
BADTYP: 
54 59 50 
BADNM : 


4E 41 4D 


CLOSED: 
45 20 43 


CRLF: 
BADCLS: 
4F 52 20 
TOLONG: 
45 20 46 
BLANK: 


BADESC: 
45 20 53 


DB 
DB 
ASC 
52 


DB 
ASC 


ASC 


DB 
DB 
DB 
ASC 


DB 
ASC 
45 
DB 
DB 
DB 
ASC 
45 
DB 
ASC 
4C 


DB 
DB 
DB 
ASC 
2D 
DB 
DB 
DB 
ASC 
55 


DB 
ASC 


ASC 
45 


DB 
DB 
DB 


CR 
LF 
"DISK WRITE-PROTECTED' 


0 
"READ SPOOL" 


' NOT FOUND' 


CR 
LF 


0 
"DISK РОГІ" 


0 
"BAD FILE ТҮРЕ" 


0 

св 

LF 

"BAD FILE МАМЕ" 


0 
"SPOOL FILE CLOSED" 


CR 

LF 

0 

'CLOSE ERROR -' 


0 

CR 

LF 

'SPOOL FILE FULL' 


'BAD ESCAPE SEQUENCE' 


CR 
LF 
9 


* PRINT MESSAGE, STOP ОМ "0" OR NEGATIVE BYTE 
* H,L -> MESSAGE 
* 


PMSG: 


MOV 
ORA 
RZ 
RM 
CALL 
INX 
JMP 


А,М GET CHAR 
^ LOOK FOR END OF MESSAGE 


DISPLAY PRINT MESSAGE 
H 
PMSG 


* 
* CLOSE READ SPOOL WHEN "1" BYTE FOUND 


STOPR: 
* 


LXI 


H,CLOSED "CLOSED" MESSAGE 


PROCESS ERROR RETURN ON READ/WRITE 
CLOSE ALL SPOOL FILES FOR ERROR CONDITION 


TOP: 


CALL 
LXI 
CALL 
POP 
CALL 
XRA 
STAX 
MVI 
ORA 
MOV 
RET 


* 
* 
* STACK -> IOFLAG; D,E -> XXUNIT 
* 
5 


РМ5С PRINT MESSAGE 


H,CRLF PRINT CR AND LF 

PMSG 

H H,L -> IOFLAG 

DSPBELL SIGNAL ERROR OR END 

А TURN OFF ACTIVE SPOOL 
D D,E -> XXUNIT 

A,80H SET ERROR BIT IN IOFLAG 
M 

M,A 


RETURN TO DOS 1/0 ROUTINE 
WITH 'M' FLAG SET 


*STORAGE SPACE FOR I/O ROUTINES 
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PRINT MESSAGE FOR WRITE PROTECT 


PRINT MESSAGE FOR FILE OVERFLOW 


1c50 5135 * 

1С50 00 00 5140 RDSTK DW 0 POINTER TO COMMAND STACK 

1С52 95 ІС 5145 5ТАСК DW LOCSTK ADDRESS OF STACK AREA 

1c54 00 5150 IOFLAG DB 0 INPUT/OUTPUT DEVICE CONTROL FLAG 
1C55 00 5155 IODEV DB 0 SELECTED 1/0 DEVICE 

1С56 00 00 5156 SAVERR м 0 DOS ERROR TV АТ DOSERR 

1С58 00 00 5157 SAVSTK DW 0 HOLD STACK POINTER 

1С5А 5160 * 

1С5А 5165 *TABLES FOR DISK I/O SPOOL ROUTINES 

1С5А 5170 * 

1C5A 5175 05 2 SPACE FOR POINTER ІМ NAME CHNG 
1С5С 5180 SPLFILE Е00 $ START OF TABLE FOR SPOOL FILES 
1c5c 5185 *WRITE SPOOL 


1С5С 53 50 АҒ 5190 WRFILE ASC 'SPOOL,2 ' WRITE SPOOL FILE NAME 
4F 4C 2C 32 a 524 20 

1C66 0р DB 13 

1С67 FF $200 DB OFFH 


PROPER TERMINATION 
TERM NAME INPUT 


1C68 00 5205 DB 0 ACTIVE DRIVE 4 

1C69 00 1D 5210 DW SPLBUF POINTER TO RAM BUFFER 

1C6B 00 00 5215 DW 0 CURRENT DISK ADDRESS 

1C6D 00 00 5220 DW 0 WRITE SPOOL FILE LENGTH 

1C6F 5225 *READ SPOOL 

1С6Ғ 53 50 5230 RDFILE ASC  'SPOOL,2 “ READ SPOOL FILE NAME 
4F 4C x 32 20 20 20 

1c79 00 5235 DB 13 PROPER TERMINATION OF NAME 

1С7А FF 5240 DB APER TERM МАМЕ ТМРИТ 

1C7B 00 5245 RDUNIT DB ACTIVE DRIVE % (0 IF SPOOL. OFF 

1С7С 00 1E 5250 DW SeLaup«1008 POINTER TO RAM BUF 

1С7Е 00 00 5255 DW CURRENT DISK ADDRESS 

1С80 00 00 5260 DW 0 READ SPOOL FILE LENGTH 

1c82 5265 *PRINT SPOOL 

1С82 50 52 49 5270 PRFILE ASC  '"'PRINT,2  ' PRINT SPOOL FILE МАМЕ 
4E 54 2C 32 20 20 20 

lc8C 0D 5275 DB 13 PROPER TERMINATION 

1С80 FF 5280 DB OFFH TERM NAME INPUT 

1С8Е 00 5285 PRUNIT DB 0 ACTIVE DRIVE $ 

1C8F 00 1F 5290 DW SPLBUF+200H POINTER TO RAM BUFFER 

1c91 00 00 5295 DW 0 CURRENT DISK ADDRESS 

1c93 00 00 5300 DW 0 PRINT SPOOL FILE LENGTH 

1c95 5305 * 

1С95 5310 * SPACE FOR COMMAND STACK 

1c95 5315 * 

1c95 5320 LOCSTK EQU $ 

1c95 5325 DS 80 USE 80 BYTES FOR COMMAND STACK 

1СЕ5 FF 5330 DB OFFH COMMAND STACK 

1CE6 5335 * 

1CE6 5340 * SPACE FOR 8080 STACK WHEN IN I/O ROUTINES 

1CE6 5345 * 

1CE6 5350 IOSTK EQU $425 

-EOF- 

R; 


.t sl00spl rcr 


If you're considering upgrading 
your current 9-1 00 =o to 16 bits: z 


Marinchip CPU бага with disk mesons system: 
$700. asm. ; $550. kit 


$1050. asm. 


Full line of RS- 232 апа RS-449 cables, adapters, 
interconnects 
Interface Technology of Maryland 
P.O. Box 745 
College Park, MD 20740 
(301) 490-3608 
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PRESS ON 


Nothing in the world 
can take the place 
of persistence. 
Talent will not; 
Nothing is more common 
than unsuccessful men 
with talent. 
Genius will not; 
Unrewarded genius 
is almost a proverb. 
Education will not; 
The world is full 
of educated derelicts. 


Persistence and determination alone 


are omnipotent. 
—Unknown 


— — 


S-100 
4 Channel Serial Interface 


| н: ЧН Jj 2 pa a 
YI Зон А mm 


Economical interface flexibility for the advanced 
amateur or small business computerist 


а Industry standard LSI UARTS 
в 8 reversible status and data ports 
в Optically isolated current loop operation 
в Independent channel operation- 
RS-232, 20mA or 60mA current loop 
в On-board crystal time base 
в One year defect and workmanship warranty 


$24950 Plus $1.50 postage and handling in the U.S. 


THETA LABS INC 


10911 Dennis Drive / Suite 405 / Dallas, Texas 75229 
(214) 241-1090 Dealer Inquiries Welcome 


A MONITOR PROGRAM IN PASCAL 


Jon Bondy 


When | first started using UCSD Pascal, | fre- 
quently found myself wanting access to the hardware 
from Pascal, so that | could read ports or write to 
memory. Whenever | needed to do these kinds of 
things, | found myself booting up CPM or using a ROM 
monitor. Each time that | added an ИО board to the 
system, | wanted to try it out from Pascal, but | couldn't 
do it easily. It seemed to me that it wouldn't be that hard 
to write a Pascal program to act as my “eyes” into the 
machine’s hardware, allowing me to watch peripherals, 
or even the Pascal operating system, from within a 
Pascal program. 

The first step in doing this was to write four 
assembly language routines which could be called 
from Pascal to allow me to read and write memory and 
ports. They proved to be somewhat more difficult to 
write than | had anticipated, since the UCSD Version 
1.5 documentation had a minor bug in it, but after some 
playing around, | wound up with the following routines. 


. FUNC MEMREAD, 1 3PARAM IS ADDRESS 


POP IX 3RETURN ADDRESS 
POP IY РОР TWO WORDS OF ZEROS 
POP IY РОР TWO WORDS OF ZEROS 
POP HL 3READ ADDRESS 
LD Е, (HL) 3READ BYTE 
LD И е 
PUSH DE 
JP (IX) 
PROC MEMWRITE, 2 3PARAMS ARE ADDRESS, DATA 
РОР ІХ 3RETURN ADDRESS 
POP DE. 3DATA 
POP HL sWRITE ADDRESS 
LD (HL).E sWRITE BYTE 
JP (IX) 


. 3PARAM IS PORT NUMBER 
POP IX 3RETURN ADDRESS 


POP IY 3POP TWO WORDS OF ZEROS 
POP IY 3POP TWO WORDS OF ZEROS 
POP BC 3PORT NUMBER 

IN Е, (С) 3READ PORT 

LD р,о 

PUSH DE 

УР (OX) 

. PROC РОКТИКІТЕ, 2 3PARAMS ARE РОКТ. DATA 
POP IX 3RETURN ADDRESS 

POP DE 3DATA 

POP BC 3PORT NUMBER 

OUT (СЕ #WRITE PORT 

JP (IX) 


The MEMREAD and PORTREAD functions have 
just one parameter, that begin the address (or port) to 
be read. They return the values read as the values of 
their functions. The MEMWRITE and PORTWRITE 
procedures require two parameters, the address (or 
port) to be written to, and the data to be sent to that 
address (or port). 


Jon Bondy, Box 148, Ardmore, PA 19003 


44 


The PROCEDURES are quite simple. UCSD Pascal 
sets the stack up so that when an assembly routine is 
called, the top ofthe stack is the return address, just as 
with standard machine language subroutine calls. 
Since | have а Z80, | save that address in register IX for 
later use; if you have an 8080, you could save it in 
memory as demonstrated in the UCSD Pascal V1.5 
Manual. The two parameters are the next items on the 
stack. They are pushed onto the stack in the order in 
which they appear in the procedure call, so they are 
popped off in reverse order. | then perform the memory 
or I/O operation required by the procedure and return. 

The FUNCTIONS are slightly more complex, since 
a value must be returned to the UCSD Pascal calling 
routine. UCSD Pascal sets up the function return 
address at the top of the stack, just as with procedures, 
but underneath that it inserts two bytes of storage on 
the stack for the function value. This is for some sort of 
compatibility with the stack formats for standard (non- 
assembly language) UCSD Pascal functions. These 
words must be popped off of the stack in order to get at 
the parameter values. The documentation bug in 
Version 1.5 was that the manual stated that the 
function storage was pushed onto the stack BEFORE 
the parameters, while in fact it is exactly the reverse. 
Finally, when the memory or port read is complete, the 
resulting value must be pushed onto the stack before 
control is returned to the Pascal program. Although 
two words of memory are placed on the stack for the 
return value by the UCSD Pascal system, only one is 
sent back. This is because UCSD Pascal leaves 
enough room on the stack for a REAL variable to be 
returned (if required), but we are only sending back a 
single 16-bit word. 

Once the routines were developed, | placed them 
in the Pascal Library using the LIBRARIAN program so 
that they would be loaded into my CODE files auto- 
matically. If you decide to use my program on your 
UCSD system, you must enter the assembly language 
routines as listed above, assemble them, and incorpo- 
rate the resulting code files into your file SYSTEM. 
LIBRARY. You are then ready to deal with the Pascal 
program itself. 

With these tools in hand, | set out to write a simple 
but useful monitor program in Pascal. | wanted to be 
able to dump memory in either hex or character format, 
modify memory, and read and write ports. As | liked the 
prompt lines which UCSD uses in their operating 
system, | decided to use a similar format for my 
program. 


5-100 MICROSYSTEMS 


NAL” 
тие ORIG Presents: 


© Personal Personal Computing 


€ Computing: and Small Business 
ч 80 Computer Show 


ше — Personal Computing snow in 04990 


eee 21, 22,23, 24th at те Philadelphia ¢ Сіміс Center 


e Major exhibits by the industries leading companies 

€ Thursday, Aug. 21st, Dealer Day 12 Noon to 6 P.M. 
ө Friday and Saturday, Aug. 22, 23rd ——— 9 A.M. to 6 P.M. 
ө Sunday, Aug. 24th ——————— — — ———— 10 A.M. to 5 P.M. 
9 
9 
ө 


Free Seminars € Robotics Contest € Antique Computer Display 
Special Seminars and Tutorials about Computer Music, Saturday, Aug. 23rd 
3rd Annual Computer Music Festival, Saturday Evening, Aug. 23rd 


(Computer Music Festival is sponsored by the Philadelphia Area Computer Society-Tickets on sale at show) 


€ Computer Visual Arts Festival, Sunday, Aug. 24th 


АА 

| Advanced Registration | 

| Saves Time & Money COMPANY NAME | 

| о send —— Dealer-Retailer (4 days) NAME | 

| Registrations at $10. each, $12. at door 

| for Thursday-Sunday, Aug. 21, 22, 23, STREET 
24 

| O Send Regular Registrations (3 CITY STATE ZIP. | 

| days) at $8. each, $10. at door for i 
Friday-Sunday, Aug. 22, 23, 24 only. PHONE 

| Advanced Registrations will be mailed late | 

| July - early August. No Advanced Registra- Send To: i 

tions accepted after Aug. 8th. PERSO NAL COMPUTIN 80 
| L] Send Exhibitor information or Phone G | 
ақы Rt. 1, Box 242, Warf Rd., e Mays Landing, NJ 08330 1 


Monitor Program, cont... 

UCSD Pascal offers a useful feature when one 
uses their character strings during input, since charac- 
ter and line editing may be performed any time up until 
you hit the carriage return to end the line. | decided to 
have most of my input as character strings in order to 
allow the user to correct mistakes easily. This meant 
that | needed a routine which accepted a character 
string as input, and interpreted the characters in the 
string as hex digits for me. That wasn't difficult to do, 
but for the memory dumps, | wanted to input both the 
starting and ending addresses as parts of the same 
character string. A naive hex conversion routine would 
cause problems, since it would be passed the same 
string twice and would return the starting address as 
the interpreted value both times. | modified my routine 
to change the characters which it processed into 
blanks, so that the second call to the routine would 
skip over the (now blank) first field. The routine in its 
final form is given below: 


function hexread(var chars : strins) : іптезегі 


€ convert the character strins ^chars^ into an inteser bv 
interPretins 
the characters in the strins as hex disits ? 


var 


temp : inteser; 
done : boolean: 
i : inteser: 


besin 


done := false: 
€ scan strins until a non-blank is found > 
repeat 
if (i <= lensth(chars)) then 
if (charstilJ = ^ 7) then 
i := i + 1 
else done := true { a non-blank character was found 2 


else done := true < scan has proceeded bevond end of strins 2 


until done: 
done :- false: 


€ add hex disits to the number beins senerated (“temp”) until а 


non-hex disit is encountered ) 
rereat 
if (i <= lensth(chars)) then 


if (сһагвГі1 in Г/07.,797,7А”7..7Ғ”,7а7..7ҒҰ71) then begin 


if (сһагвГ11 € ^A^) then < it is a numeric disit 2 
temp := (temp * 16) + ord(charsLil) - ord(^O*) 
else besin 


if (charsLilJ > ^F^) then < convert lower case alpha 


to upper 2 
charsLilJ := chr(ord(charsLil) - 32); 
С add all alPha^s into number beins senerated 2 


temp := (temp % 16) + ord(charsLil) - ord(^A^) + 10; 


end; < else 2 


€ Put blank in character Processed so that if the same 


strins 
is processed asain,» 
the first field will be skipped over 2 
сһагвГі1 t= ^ “3 
i t= i + 15 
end { if > 
else done :- 
else done :- true € the scan has proceeded bevond the 
end of strings 
until done; 
€ return number acsuired > 
hexread іс temp 
end; € hexread 2 


true < а non-hex character has been encountered 2 


I wanted nicely formatted dumps, so | paid attention 
to the placement of the dumped data on the screen. If 
the user asked for a memory dump starting at address 
OCH, I wanted the first byte dumped to be placed under 
the header line as the twelfth position on the line, 
rather than the first. In this way, one could always use 
the header line to determine which value was which. 
For example, a dump from OCH to 12H would look like 
the following: 


00 01 02 03 04 OS O6 07 08 09 ОА ОВ OC OD OE OF 


0000 O3 02 EF F3 
0010 C3 00 34 
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To do this, | calculated the number of spaces 
required after the address field ('0000' in the above 
example) in the variable ‘numspaces’, and printed 
them as WRITE (‘ “питврасев). 

For the memory modification routine, | copied a 
method which I have seen in so many places that I have 
forgotten where | first saw it. The user enters ап 
address, after which the computer displays the con- 
tents of that byte in hex. The user can enter a space, a 
carriage return, or a hex value. If a space is entered, 
the value of the next byte in memory is displayed, and 
the process continues. If a carriage return is entered, 
the routine terminates. If a hex value is entered, that 
value is used to replace the value which was just 
displayed, and the value of the next memory location is 
displayed. Notice that since ! was dealing with input 
data a character at a time in this routine, | could not use 
the 'hexread' routine which was discussed above. The 
very flexibility which the strings offered me in the first 
place (character and line editing) made it impossible to 
use them when | wanted real time interactive user 
input. 

All in all, it took me about an hour to code the 
original version of the program. | quickly discovered 
that | needed a way to terminate the dumps if they were 
not of interest, and to freeze them if they were. | added 
a routine which read the keyboard, and used that to 
cause a screen freeze if a <control-s> was entered 
and dump termination if a <control-o> was entered. 
Note that | could not use standard Pascal /О for this 
purpose, since a READ statement would have waited 
until the user entered a character rather than simply 
sampling the keyboard from time to time. The keyboard 
read routine is given below: 


function kbd = char; 


С read the keyboard Port; whether there is a new character 
there or not, and return that character to the caller } 

var 
i : inteser; 

besin 

i іш Portread(1); 

€ if msb is set, clear it } 

if (i < 128) then kbd := chr(i) 

else kbd = chr(i - 128) 

endi € kbd > 


The final program is given below. | have transported 
it to a number of other UCSD systems with little 
difficulty, so | expect that you could enter it and use it 
without a problem. 


Prosram monitor: 


const 
eeos - 
еео1 - 23; 
home = 21: 
cntls = 19; 
cntlo = 15; 


var 
Port, addr, addri, addr2, data : іптезег: 
chars : string; 
ch : chars 
soodchars : set of char; 


Procedure memwrite(addr, data : inteser): external: 
function memread(addr : inteser) : intesers external: 
Procedure Porturite(Port; data : inteser): external; 
function Portread(Port = inteser) : inteser: external: 


function kbd = char: 
€ read the kevboard Port; whether there is a 
пеш character there or not, 
and return that character to the caller 2 
var 
i * inteser: 
besin 


S-100 MICROSYSTEMS 


Have You Been 
Bitten By The 
Computer Bug? 


Be A Computer 
Literate 


A first introduction to the computer 
world for children age 10 to 14. Full color 
diagrams, drawings, photos and large 
type make this book easy to read and 
understand. Written by Marion J. Ball 
and Sylvia Charp. This informative 62- 
page book is used in many school 
systems. Softbound [6H] $3.95. 


Problems for Computer 
Solution 


Problems for Computer Solution by 
Stephen J. Rogowski is an excellent 
Source of exercises in research and 
problem solving for students and self- 
learners. Problems like the Faulty Speed- 
ometer Spotter make learning fun and 
easy. 104 pages, softbound, [92] $4.95. 


Creative Computing | ае 2 


Magazine - 
| g | The Best of 
Creative Computing has long been М . 
Number 1 іп applications and software for Creative Computing 
micros, minis, and time-sharing systems 
for homes, schools and small busi- 
nesses. Loads of applications every 
issue: text editing, graphics, communi- 
cations, artificial intelligence, simula- 
tions, data base and file systems, music 
synthesis, analog control. Complete pro- 
grams with sample runs. Programming 
techniques: sort algorithms, file struc- 
tures, shuffling, etc. Coverage of elec- 
tronic and video games and other related 
consumer electronics products, too. 

Just getting started? Then turn to our 
technology tutorials, learning activities, 
short programs, and problem solving 
pages. No-nonsense book reviews, too. 
Even some fiction and foolishness. 

Subscriptions: 1 year $15, 3 years $40. 
Foreign, add $9/year surface postage, 
$26/year air. 


The first two years of Creative Com- 
puting magazine have been edited into 
two big blockbuster books. American 
Vocational Journal said of Volume 1, 
"This book is the 'Whole Earth Catalog' of 
computers." [6A] Volume 2 continues in 
the same tradition. "Non-technical in 
approach, its pages are filled with infor- 
mation, articles, games and activities. 
Fun layout." —American Libraries. [6B] 
Each volume $8.95. 


Basic Computer Games 


Edited by David Ahl, this book con- 
tains 101 imaginative and challenging 
games for one, two, or more players — 
Basketball, Craps, Gomoko, Blackjack, 
Even Wins, Super Star Trek, Bombs 
Away, Horserace. Simulate lunar land- 
ings. Play the stock market. Write poetry. 
Draw pictures. 

All programs are complete with listing 
іп Microsoft Basic, sample run and 
description. Basic conversion table in- 
cluded. 125,000 copies in print. 192 pages 
softbound. [6C] $7.50. 


Computer Coin Games 


Computer Coin Games by Joe Weis- 
becker aids newcomers to the field of 
computers by simplifying the concepts of 
computer circuitry through games which 
can be played with a few pennies and full 
sized playing boards in the book. 
Enhanced by outrageous cartoons, 
teachers, students and self-learners of all 
ages will enjoy this 96 page softbound 
book. (10R] $3.95. 


How To Order 


Send order and payment to Creative 
Computing, P.O. Box 789-M, Morris- 
town, NJ 07960. Add $1.00 shipping and 
handling per order (foreign, $2.50) N.J. 
residents add 5% sales tax. Visa, 
MasterCharge and American Express 
orders welcome. For faster service, call 
in your bank card order toll free to: 
800-631-8112.(In NJ, call (201) 540-0445.) 


More Basic 
Computer Games 


Contains 84 fascinating and enter- 
taining games for solo and group play — 
evade a man-eating rabbit, crack a safe, 
tame a wild horse, become a millionaire, 
race your Ferrari, joust with a knight, trek 
across the desert on your camel, navigate 
in deep space. 

All games come complete with pro- 
gram listing in Microsoft Basic, sample 
run and description. 192 pages soft- 
bound. [6C2] $7.50. 
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. 9 var 
Monitor Program, cont g... addr, temp : inteser; 
i := rortread(1);: besin | 
{ if msb is set, clear it 2 € urite header line 2 _ 
if (i € 128) then kbd := сһг(1) writeln(¢ 
else kbd := chr(i — 128) ^ 0123456789ABCDEF0123455789ABCDEF0123456789ABCDEFO123455789ABCDEF * ): 
end; € kbd } € write startins address 2 
hexurite(addri1 div 256); 
function hexread(var chars : strins) = inteser: hexurite(addri mod 256); 
€ convert the character strins ^chars^ into an inteser bv interrretins € Position cursor correctly for initial write 2 
the characters in the strins as hex disits 2 urite(chr(eeol),;^ ^:((addri mod 64)+1))3 
var addr := адйгі; 
temp : inteser; repeat 
done : boolean: temp := memread(addr); 
і : inteser; € onlv urite Printable characters to the screen > 
besin if (chr(temP) in soodchars) then write(chr(temp) ) 
temp := 0; else urite(^.^); 
i t= 13 addr := addr + 13 
done := false; € only write 64 characters on a line } 
€ scan strings until a non-blank is found } if ((addr mod 64) - O) then besin 
rePeat writeln: 
if (i <= lensth(chars)) then hexurite(addr div 256); 
if (chars[fil = ^ 7) then hexurite(addr mod 256); 
і = і +1 write(^ ^) 
else done := true € a non-blank character was found } end; 
else done := true { scan has Proceeded bevond end of strins 2 € Pause if the user types іп a €Ccontrol-s2; continue if another 
until done: character is entered } 
done іш false: while (kbd = chr(cnt1s)) do besin end 
€ add hex digits to the number beins generated (^temP^) until a € continue Printins until the address limit is reached; or the user 
non-hex disit is encountered ) enters а <control-o> 2 
repeat until (addr = addr2) or (kbd = chr(ecntlo))$ 
if (i <= lensth(chars)) then € write final character 2 
if (сһагвГі1 іп Г/07..797,7А7..7Ғ”ь7а”7..7Ұ71) then besin temp == memread(addr)3; 
if (charsLiJ < ^A^) then < it is a numeric disit 2 if (chr(temP) in soodchars) then urite(chr(teme)) 
temp := (temp * 16) + ord(charsLil) - ord(^O*) else urite(^.^); 
else besin writeln; 
if (chars[i] > ^F^) then < convert lower case alpha to upper 2 end; € asciidump > 
charsfil := chr(ord(charsLiJ) - 32); Procedure dispmem(addri,addr2 : inteser): 
С add all а1ғһа”5 into number beins senerated 2 € dump memory in hex to screen, from ^addri^ to ^addr2^ } 
temp := (temp % 16) + ord(charsLil) — ога(“А”) + 10; var 
endi € else 2 addr : intesers 
€ put blank in character processed so that if the same string begin 
is processed asain», the first field will be skipped over 2 € write header } 
Та: ке = 27% writeln(’ 00 01 02 ОЗ 04 05 06 07 08 09 ОА OB ОС OD ОЕ ОҒ”): 
і fed + € write initial address > 
end € if } hexwrite(addri div 256); 
else done := true € a non-hex character has been encountered 2 hexurite(addri mod 256); 
else done := true < the scan has proceeded beyond the end of strings > € Position cursor for initial write } 
until done: write(chr(eeol)," ^:(((addri mod 16) * 3)+1)); 


€ return number acauired 2 addr = addri; 
hexread :- temp rePeat 


end; € hexread 2 hexurite(memread(addr))5: 


1 vurite(^ ^); 
Procedure hexurite(data : integer); addr := addr + 1; 


€ write the inteser “data” to the CONSOLE: in hex } € only write 16 bytes Рег line } 


var if ((addr mod 16) - O) then besin 
$етр1, temP2 : integer; writeln; 
besin 


hexurite(addr div 256); 

hexurite(addr mod 256); 

write(^ 7) 

ends 

Pause if the user types in a <control-s>3 continue if another 
character is entered 2 

while (kbd = chr(cntls)) do besin end 


templ := (data div 16) mod 16; 

temP2 :- data mod 16: 

if (templ > 9) then urite(chr(ord(^A^) + templ - 10)) 
else шгіте(сһг(ог4(707) + tempP1)); € 
if (temP2 > 9) then write(chr(ord(^A^- + temP2 - 10)) 
else urite(chr(ord(^O^) + temP2)) 

ends € hexurite 2 


Procedure asciidumP(addrisaddr2 : inteser): € continue Printins until the address limit is reached, or the user 
С dume memory startins at ^addri^ and stopping at ^addr2^ to enters a <соп%го1-о> 2 
the CONSOLE: as ASCII > until (addr = addr2) or (kbd = chr(cntl0o)); 


€ write final bvte to screen 2 


SW3lSASOMDIW 001-5 


ev 


hexurite(memread(addr)): 
writeln; 
end; € dispmem } 


Procedure substitute(addr : integer); 


С display and replace byte values in memory starting at address addr’ 
var 
teme = integer; 
ch : char; 
besin 
€ write the address } Ж 
hexurite(addr div 256); 
hexwrite(addr mod 256); 
vurite(^ ^); 
if eoln then readin; 
€ repeat until the user enters а <CR> } 
while not eoln do besin 
€ write value in memory 2 
hexwrite(memread(addr)); 
write(^-^): 
temp == 0; 
read(ch); 
€ if user enters ^ ^, then Proceed to next memorv address. otherwise; 


accert а neu hex value to replace that which was disPlaved } 
if (ch <> 7 7) then begin < accumulate hex value іп “temp” } 
‚ while (ch in Г/07..797,787..7Е7,7а7..7671) do besin 
if (ch < А) then 
temp := (temp * 16) + ord(ch) 
else besin 
if (ch > 7Ғ?) then 
ch = chr(ord(ch) 
temp іс (temp * 16) 
ends { else } 
read(ch) 
ends € while } 
€ write hex value into memory to replace value displayed } 
тетшгі е (аадг, temp) 
end’ С ch <> 773} 
addr іс addr + 1; 
€ only Process 8 bytes Per line 2 
if ((addr mod 8) - O) then besin 
writelns 
hexurite(addr div 256); 
hexwrite(addr mod 256); 
write(^ ^"); 
if eoln then readin 
end 
end € while } 
ends € substitute } 


- ord(*O*) 


- 32); 


+ ord(ch) - ord(^A^) + 10; 


H 


besin < main 2 
soodchars i= [^ ^..^ 
“13 
repeat 
€ display Prompt line } 
write(chr(home), 

“Monitor : D)mp,A)scii,S)ub,R)port,W) port, Q)uit’)3 
€ accept command input } 
repeat 

read(kevboard,ch) 

until (ch in Г747,7а7,757.7г7,7ш”7,747, 

7р”,787,757,787,7М77071)% 
uriteln(chr(eeos)); 
€ dispatch control to correct routine } 
case ch of 

“4,07 = besin 
write(“Dump (start, 
readin(chars); 
€ repeated calls to ^hexread^ cause subsequent hex fields to be 

interPreted and returned as the value of the function 3 
dispmem(hexread(chars),hexread(chars)) 
end; 

“а”, “А” = besin 
write(“Ascii (start, 
readin(chars); 
asciidump(hexread(chars),hexread(chars) ) 
end; 

767,787 : besin 
write(^Substitute (addr) : ^): 
readin(chars); 
substitute(hexread(chars)) 
end; 

(г, Ви : besin 
write(^Read Port (Port) : 
readin(chars); 
hexurite(Portread(hexread(chars))) 
end; 

W/W? : besin 
write(^Write Port (port, 
readin(chars); 
Porturite(hexread(chars);hexread(chars)) 


stop) : 7); 


stop) = 7); 


4); 


data) : ^); 


end 
end { case } 
until (ch = 747) or (ch = 707) 


end. 


€ file is ^monitor.text^ ) 


5-100 PROCESSOR BOARDS & 
MANUFACTURERS 


Compiled by 


Sol Libes 


The following listing does not pretend to be 
complete. In fact, | would welcome reader 
additions and corrections to the listing. | prepared 
the listing in response to many letters that | have 
received regarding the large variety of CPU boards 
that | had previously mentioned as being available 
to S-100 based systems. | had mentioned that 
there "were 11 different microprocessor CPU type 
boards for the S-100". When! compiled the listing | 
discovered 13 different microprocessors were 
implemented on S-100 CPU boards, from 31 
different manufacturers. The list follows. 

If anyone would like to undertake to present 
listings of other types of S-100 CPU boards (e.g. 
memory, 1/0, disk controller, video, etc.) please 
contact me. 


MICRO- 


PROCESSOR CPU SUPPLIER 


2650 Victoria Micro Digital,401 Dundee St, 
Victoria, TX 77901 

6502 CGRS Microtech, POB 102, Lang- 
horn, PA 19047 

6802 Mic DaSys, 357 South Lorranie Blvd, 
Los Angeles, CA 90020 

6809 Ackerman Digital, Suite 208, 110 York 
Rd, Elmhurst, IL 60126 

8080 Electronic Control Technology, 763 
Ramsey Ave, Hillside, NJ 07205 


IMSAI Computer Div., FischerFreitas 
Corp., 2175 Adams Ave, San Leandro, 
CA 94501 

SSM Microcomputer Products, 2190 
Paragon Drive, San Jose, CA 95131 

Wamenco, Inc., POB 877, EI Granada, 
CA 94018 


8085 Godbout Electronics, Bldg 725, 
Oakland Airport, CA 94614 


Dynabyte, 115 Independence Dr., 
Menlo Park, CA 94025 


Artec Electronics Inc., 605 Old 
County Rd, San Carlos, CA 94070 


8088 Godbout Electronics, Bldg 725, 
Oakland Airport, CA 94614 
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Lomas Data Products, 11 Cross 
Street, Westborough, MA 01581 


8086 Seattle Computer Products, 1114 
Industry Dr., Seattle, WA 
TecMar Inc, 23414 Greenlawn, 
Cleveland, OH 44122 


9900 Marinchip Systems, 16 Saint Jude Rd, 
Mill Valley, CA 94941 
Z-80 California Computer Systems,250 


Caribbean, Sunnyvale, CA 94086 


CMC Marketing, 10611 Harwin, Suite 
406, Houston, TX 77036 
Cromemco Inc, 280 Bernardo Ave, 
Mountain View, CA 94940 
Delta Products, 15392 Assembly 
Lane, Unit A, Huntington Beach, CA 
92649 
Digital Research Computers, POB 
401565, Garland, TX 75040 
Ithaca InterSystems, POB 91, Ithaca, 
NY 15850 
North Star Computers, Inc.,1440 
Fourth St, Berkely, CA 94710 
QT Computer Systems Inc., 15335 
South Hawthorne Blvd, Lawndale, CA 
90260 
Quasar Data Products, 25151 
Mitchell Dr, No. Olmstead, OH 44070 
SD Systems, POB 28810B, Dallas, TX 
75228 
SSM Microcomputer Products, 2190 
Paragon Drive, San Jose, CA 95131 
Tarbell Electronics, 950 Dovien PI, 
Suite B, Carson, CA 90746 
ZS-Systems/Zobex Inc., POB 1847, 
San Diego, CA 92112 

Z-8000 Ithaca Intersystems, POB 91, Ithaca, 
NY 15850 


Quasar Data Products, 25151 
Mitchell Dr., No. Olmsted, OH 44070 


LSI-11 Alpha-Micro, 17881 Sky Park North, 
Irvine, CA 92714 


PASCAL Digicomp Research Corp., Terrace 
Microengine Hill, Ithaca, NY 14850 
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| Software 
Consultants 


as. Harken! | Г. 


Do you do software customizing? Do 
you do software package installation? Do 
you provide turnkey systems? Do you run 
a programming shop? Full-time? Part- 
time? 

Starting with a future issue MICRO- 
SYSTEMS will publish a directory of 
"software shops." Places where com- 
puter customers can go for software 
package customizing. Most purchases of 
computer software packages find that the 
package does not exactly meet their 
needs—customizing is required—some- 
times this is minor and sometimes it is 
major. Our directory will provide low cost 
advertising for “software shops.” If you 
wish to be listed write to MICRO- 
SYSTEMS, Box 1192, Mountainside, NJ 


07902 for information. 
FULL COLOR 


САТ-100 crapincs 


The original 256-color imaging system with 
high resolution video FRAME GRABBER 
for the S-100 bus. 3 


Capture and digitize a video frame in 1/60 of a 
second. Select the best resolution for your 
application, from 256 to 1280 pixels уу” 
per TV line. Display your digitized #2 
or computer processed image _ 
with 256 gray levels or 256 езі 
colors on standard 

B&W, NTSC or RGB 


т Features: 
* Highest possible quality 480x512x8 digital video 
image presently available on the market 


* Input capability from TV camera or other sources 


е Choice of 1, 2, 4, 8, 16 or 32 bits per pixel 
ө 32K-byte image memory on the basic system 
е 32, 64, 128 5 256K byte system capacity 


processors 
е Comprehensive line of accessories, monitors and 


support software 


SEND FOR FREE CATALOG 


DIGITAL GRAPHIC SYSTEMS 


= 441 California Ave., Раю Alto, CA 94306 415/494-6088 


b FREE 
CATALOGS 


О Software. Lists 400 pro- 
grams on 70 tapes and 
disks. For education, recre- 
ation, and personal use. 


O Books. Lists 100 books, 
games, records, prints, etc. 
for educational and per- 
sonal users of small compu- 
ters. 


П Peripherals. (ALF music 
synthesizer and Versa- 
Writer for the Apple 11). 


Send 3 15% stamps for 
either catalog or 5 for both. 
Or send $2.00 for a sample 
issue of Creative Computing 
and both catalogs. 


creative 
сора ев 


Р.О. Вох 789-М 


Morristown, NJ 07960 
CATCH THE 


BUS! OUR 


LIST SPECIAL 
PRICE CASH 
. PRICE _ 
North Star Horizon ІІ — 64K 
Double density A&T 3830.00 2999.00 


Intertec's ‘‘Super Brain" W/32K, 
2 drives, CP/M etc. 2995.00 2495.00 


Godbout Econoram XIII — 24K 
Static RAM ‘‘Unkit’’ 479.00 399.00 


S.D. Systems VDB 80X24 kit 370.00 “309.00 
S.D. Systems SBC-100 Single 
board computer kit 295.00 “252.00 


“Included free with every S.D. Systems board is an additional $25.00 
manufacturer's rebate coupon. 


Subject to Available Quantities e Prices Quoted Include Cash Discounts. 
Shipping & Insurance Extra. 


We carry all major lines such as 
5.0. Systems, Cromemco, Ithaca Intersystems, North Star, 
Sanyo, ECT, ТЕ, Godbout, Thinker Toys, Hazeltine, IMC 
For a special cash price, telephone us. 


S-/00,ine. 
7 White Place 
Clark, N.J. 07066 
Interface ....201-382-1318 


NEW 


PRODUCTS 


RS-232-C TO RS-449 ADAPTERS 

ITM Cables division announces a series of 
RS-232-C to RS-449 type data communica- 
tion adapters. Adapters can be provided for 
RS-232 DTE to RS-449 DCE, or RD-449 DTE 
to RS-232 DCE. Each provides the proper 
electrical and mechanical interfaces between 
the “old” and the new EIA digital data 
systems. These adapters can ease the 
transition costs in computer and data 
communications. Interoperability is insured 
by compliance with EIA recommendations. 

The RS-449 type devices include both 
RS-422 balanced and RS-423 unbalanced 
lines. Both primary (37 pin) and secondary (9 
pin) channels can be supported with 
individual or combined adapters. A line of 
RS-449 cables is also available for primary 
only and combined circuits. 

Loop back plugs provide a quick way of 
checking local equipment and cabling. 
Available for RS-232 and RS-423, these loop 
back the data and necessary control lines for 
local loopback testing. An LED indicator 
shows the presence and polarity of data 
traffic (line state). Catalog, selection sheets, 
and application guide available. Shipment 
from stock in most cases. OEM and quantity 
discounts. These adapters are available 
from: Interface Technology of Maryland, 
P.O. Box 745, College Park, MD 20740. 
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LOW-COST GRAPHICS PLOTTER 

Strobe Inc. has just introduced a low cost, 
high performance digital graphics plotter. 
This new drum type plotter has a 0.004 inch 
step size, an 8 1/2 х 11 inch paper capacity, 
accepts a wide variety of pens, and uses 
quality stepping motor. In addition, this 
model features ап interactive digitizing 
mode that allows the user to enter X-Y 
coordinate data corresponding to pen loca- 
tion directly into the host computer. 

The plotter is controlled directly by the 
user's computer through two parallel output 
ports and one parallel input port. A hardware 
interface and software driver are available for 
S-100 bus machines. Also being offered is a 
plot software package providing vector 
generation and alphanumerics that runs with 
most versions of BASIC and FORTRAN. 

The price of the Model 100 Plotter is 
$680.00. Prices for software and hardware 
interfaces upon request. For further informa- 
tion contact STROBE INC., 897-5A Indepen- 
dence Ave., Mountain View, CA 94043. 


32-CHANNEL DIGITAL SYNTHESIZER 

A S-100 based digital synthesizer has been 
developed by Casheab. The device consists 
of two S-100 cards: a synthesizer card and a 
controller card. The synthesizer card is 
responsible for generating the music wave- 
forms. All parameters are loaded into the 
synthesizer from the host processor. The 
timbre waveform is specified by 1024 12-bit 
samples. The synthesizer can hold up to 16 
waveforms. The waveform selection for each 
of the 32 channels is specified by the 
processor. Frequency is specified as two 
bytes and amplitude is specified as one 
byte. The synthesizer is also capable of 
frequency modulation in which one channel 
frequency modulates a second channel. The 
host processor therefore has control over 
frequency, waveform, amplitude, and fre- 
quency modulation of each channel. The 
synthesizer is capable of additive synthesis, 
FM synthesis and direct digital synthesis. 

The controller card is responsible for 
controlling the synthesizer card, summing 
the channel waveforms and handing the 
digital-to-analog conversion. Тһе A-to-D 
conversion system consists of a 12-bit 
multiplying DAC and а 4-bit DAC. The 4-bit 
DAC is used to supply a reference voltage for 
the 12-bit DAC. This produces a greater 
dynamic range from the DAC. 
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Software оп а CP/M compatible floppy 
disk is provided with the synthesizer. The 
software consists of a waveform creation 
program, a score compiling program and a 
play program. The waveform program is 
written in Basic and executes a frequency to 
time 1024 point FFT algorithm. Scores are 
written into Basic program using DATA 
statements; the program is compiled and 
the piece is played by using the play 
program. 


The 32-channel, 16 waveform synthesizer 
card (SYN-10/16) and the controller card 
(CTR-10) sell at a combined price of 
$1245.00. A 32-channel, 4-waveform (SYN- 
10/4) synthesizer and controller is also 
available at $1095.00. The manual for the 
synthesizer and controller is $5.00. 

CASHEAB, 5737 Avenida Sanchez, San 
Diego, CA 92124. (714) 277-2547. 


«ТАР PP naar 


CROMEMCO INTRODUCES 
GRAPHICS INTERFACE 


The Cromemco SDI is a high-resolution 
graphics interface designed for use in 
Cromemco computer systems. The SDI, 
displays color or black-and-white images 
with up to 756 by 484 point resolution, and 


48K of memory may be used for the display 
memory, leading to four basic modes of 
operation. 

The SDI has three separate analog output 
signals to drive the Red, Green and Blue 
guns of a high-quality RGB monitor, to 
preserve the full resolution of the picture. 
For black-and-white work any of these 
outputs can be used to drive black-and-white 
monitors. In fact, all three outputs can be 
used to display three totally different 
pictures to three different black-and-white 
monitors simultaneously. A composite 
SYNC signal is switch-selectable on any of 
these three outputs. A separate SYNC signal 
is also available. 

These SYNC signals adhere strictly to the 
RS-170 standard for the television broadcast 
industry. In addition to the SYNC signal, the 
SDI outputs all signals required to serve as 
input to a colorizer or color modulator in a 
television broadcast studio. Furthermore, 
the SDI can be synchronized to external 
television equipment through the use of an 
external composite RS-170 SYNC signal, a 
composite video signal, or external horizon- 
tal and vertical SYNC signals applied to the 
appropriate SDI inputs. 

Cromemco has also developed new 16K 
and 48K two-port memory cards for use with 
the SDI. Picture information is accessed by 
the SDI through a connector on the top of 
these cards. Use of the two-port memory for 
the display memory assures 75% to 100% 
CPU utilization, depending on the applica- 
tion software. 

The two-board SDI graphics interface 
(Model SDI) is available for $595. For 
additional information, contact Cromemco, 
Inc., 280 Bernardo Avenue, Mountain View, 
CA 94043; (415) 964-7400. 


AC POWER LINE ISOLATOR 

Severe AC power line spikes, surges, 
noises and hash are prevalent in many 
MicroProcessor installations. Operators are 
plagued with unexplained crashes, memory 
loss and program glitches. Disks, printer 
and processor often interact, aggravating the 
problem. 

ELECTRONIC SPECIALISTS' recently 
announced SUPER ISOLATOR is designed 
to curb these severe electrical problems. 
Incorporationg heavy duty surge/spike sup- 
pressors, the SUPER ISOLATOR features 3 
individually dual-Pi filtered 3-prong AC 
Sockets. Equipment interactions are elimi- 
nated and disruptive/damaging line spikes 
and hash are controlled. The SUPER 
ISOLATOR can accomodate an 1875 watt 
load, with each socket capable of handling 
1000 watts. 


Severe power line spike/surge and hash 
control is combined with interaction-free 
operation for $88.95 (Model ISO-3). SUPER 
ISOLATOR is available from: Electronic 
Specialists, Inc., 171 South Main Street, 
Natick, Massachusetts 01760. (617) 655-1532 


Get 8080/Z80 Source Code on your CP/M compatible disk 


DDB— Directory Data Base Program reads disk directories and builds a data 
base file for inquiries, find files fast, catalog your library 
COMM— Communicate with a timesharing system through your modem port! Modes are: 
terminal, file to file, (+ CRC 16), local (disk commands), FDX/HDX.... (C) $50.25 
CDIR— Comprehensive directory utility: Alphabetical list of file extents & all 
allocated disk blocks: Checks dup allocation for file integrity 
DXAM— Disk exam/update utility; For memory map video: Any drive, track, sector: 
Display or update data in ASCII, EBIDIC, HEX or user decode option.... (V)$40.20 
DGEN— Character generator for IMSAI VIO: Runs on VIO: Inputs ЗК disk file & edits 
characters in a 7 x 9 block character simulation: updates file (V) $40.20 
DASM— Self relocating 8080 dis-assembler: Outputs to CRT, printer & disk as .ASM 
or .PRN types: Symbol table: Symbol XREF : ASCII dump: control s + p(C) $85.40 
GEDT— Gang editor: Single pass multi-string replacements: Your original file 
unchanged as new file is created: Wild card character can be used (C) $40.20 
CHESS— Send proof of ownership of Sargon and get complete file using CP/M keybd 
(V) $20.20 


with features such as high point resolution, 
color map selection, dual page windowing 
function, automatic area fill mode, and 
NTSC broadcast compatibility. 


and display on VIO, flashwriter or similar 80 x 24 graphic board 
PREDT— Pre-edit program will update version number maintained in program file, 


then locate and load CP/M editor (or fname ed. com) and execute. (C) $40.20 
VIDEO— Memory mapped video drivers: Z80 & 8080: Any size char/line configuration 

dynamically definable: Multi-window scroll: All cursor/Screen controls.. $40.00 
VDRAW- Vector draw & plot for memory map video using 2 x 3 block grafic char as 

pixel grid: Call from MBASIC or XDB: Test program included (In BASIC).. $30.00 
KEYBD— Keyboard data and status input module: Simulates input latch: Parallel out 

$20.00 

SYS16— 16K ROM/"BASIC"/Assembler/Monitor/Debug/Tarbell cassette operating sys- 

tem supplied on cassette, disk or 2708 EPROM (add $180 for firmware)... $900.75 
GAMES — Incredible graphics! : Space Invaders: Target: Startrek & more each (v) $40.20 

Supplied on your disk/or ours (add $7.50) / or listings-free brochure 
Price codes = зоигсе/сот: (С) = CP/M 1/0: (М)  CP/M Keybd + Mem Map Video 


HAWKEYE GRAFIX, 23914 Mobile, Canoga Park, CA 91307 
(213) 348-7909 


The SDI consists of two circuit boards 
which plug directly into the S-100 bus of any 
Cromemco microcomputer system and uses 
direct memory access to display the con- 
tents of a display memory. Each pixel of the 
display may be mapped from one nybble or 
from one bit of the display memory. 
Bit-mapped or nybble-mapped mode is 
software selectable. In fact, one part of the 
picture may be displayed in one mode and 
another part in the other mode. Also, 12K or 
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SOFTWARE DIRECTORY 


Program Name: VDRAW ASM 
Hardware System: Any memory mapped 
video board with 2 x 3 Graphics: Poly- 
morphic/IMSAI VIO/ Vector б. Flashwriter 
Minimum Memory Size: 1/4K 
Language: 8080 Assembler 
Description: These routines will control 
memory-mapped video boards providing 
graphic capabilities. They will select and 
turn on or off any pixel desired. The user 
provides only an X and Y co-ordinate 
specifying the desired pixel for plot, or the 
X-Y co-ordinates of the start and end of a 
line. The routines will locate and set (or 
reset) the desired pixel or pixels. This will 
provide a simple interface for graphics from 
higher level languages. The plot routine will 
operate at very high speed. The draw routine, 
which utilizes the plot routine to set each 
pixel required, will draw a line on a video 
board so rapidly that the user will be unable 
to detect the time difference between the 
first and last pixels being set (or reset). The 
routine assumes that each pixel is controlled 
by a bit in an area occupied by a 
memory-mapped video board. The bits 
(pixels) must be arranged in a 2 x 3 matrix 
within a given byte (character) on the board. 
The two routines together will fit less than 
256 bytes. The routines are also provided 
with two different methods for providing the 
X-Y addressing parameters. The parameters 
may be provided on the stack, or simply set 
into specified addresses. 
Release: Currently available 
Price: $30.00 
Included with price: Program source code 
and documentation plus test program writ- 
ten in Basic. 
Author: Hawkeye Grafix 
Where to purchase it: 

Hawkeye Grafix 

23914 Mobile St. 

Canoga Park, CA 91307 
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Program Name: COMM 4 
Hardware System: CP/M and RS-232 Serial 
Port with modem. 
Minimum Memory Size: 16K 
Language: 8080 assembler 
Description: Provides a comprehensive 
menu-driven communications package for 
users of CP/M operating systems linking to 
time-sharing or other CP/M systems. Termi- 
nal mode supports disk log option. Four file 
transfer modes perform auto disk paging 
without data loss, CRC-16 error retransmit, 
FDX no echo wait option, port-port/ FDX/ 
HDX modem. Local functions enable disk 
DIR, read name, delete, log in, plus control 
character and console echo switch. 
Release: Now 
Price: $150 source; $75 object 
Included with price: Program and documen- 
tation. 
Author: Hawkeye Grafix 
Where to purchase it: 

Hawkeye Grafix 

23914 Mobile St. 

Canoga Park, CA 91307 


Program Name: Layout 

Hardware System: Sol/ Helios 11, Disks (1) 
Minimum Memory Size: 16K 

Language: Extended Disk BASIC 
Description: Layout saves programming 
time and effort by formatting, printing, and 
screen-printing a series of Data File Layouts. 
File produces uniform header for program 
description, and an indefinite number of 
descriptions of variables used in the data 
file. Provides space for programmer's com- 
ments. Excellent programming and refer- 
ence tool. 

Release: Now 

Price: $20, includes source on disk and 
documentation. 

Author: J. Brockway 


Where to purchase it: 
Jerry Brockway 
Suite 308, 2909 Bay to Bay 
Tampa, FL 33609. 


Program Name: WHATSIT? (Wow! How'd All 
That Stuff get In There?) [WHATSIT? is a 
trademark of Computer Headware] 

Hardware System: Any 5-100 system; 
WHATSIT is available in Model NS-3 for 
North Star systems, and Model CP-2 for 
CP/M systems. 

Minimum Memory Size: 32K (Model М5-3), 
44K (Model CP-2). 

Language: North Star BASIC (Model NS-3), 
CBASIC-2 (Model CP-2). 

Description: WHATSIT is a self-indexing, 
cross referencing data query system. The 
program stores, indexes, and fetches free- 
format information in response to conversa- 
tional "Requests." Typical queries range 
from "When's Johnny's Dental Checkup?" to 
"What's the U.N. Ambassadors Voting 
Record?" WHATSIT's unique open-ended 
data structure evolves continuously during 
normal use, without respecifying the file. 
Unexpected new file headings are immedi- 
ately added when first mentioned in a 
Request, then remain available for future 
reference. Always spoken of as "her" in the 
160-page user's manual, WHATSIT distin- 
guishes herself by her breezy, impertinent 
repartee, including such rejoinders as "News 
to me!" when queried for information not 
currently on file, or "Never mind!" when the 
operator cancels a Request unexpectedly. 
Release: March 1978 (Model NS-3), August 
1979 (Model CP-2). 

Price: $125.00 (Model NS-3), $175.00 (Model 
CP-2). 

Included with price: Disk with 160-page 
spiral bound user's manual. 

Author: Computer Headware, Box 14694, 
San Francisco, CA 94114. 

Where to purchase it: 


Hardhat Software 
Box 14815 
San Francisco, CA 94114 
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Program Name: muLISP-79 
Hardware System: Standard CP/M 
Minimum Memory Size: 20K 
Language: LISP language interpreter 
Description: Five man-years in the making 
and extensively tested, the muLISP-79 
Interpreter makes a truly sophisticated LISP 
system available to S-100, CP/M users. It is 
capable of supporting serious А! efforts in 
such diverse fields as robotics, game 
playing, language translation, computer 
algebra, and theorem proving. Fully integra- 
ted into CP/M, it features infinite precision 
arithmetic, flexible program contro! con- 
structs, an efficient garbage collector, & 
informative error messages. Most important 
for serious applications, it uses the most 
modern techniques to achieve extremely fast 
execution speeds. Please write The Soft 
Warehouse for details. We require a License 
Agreement be signed prior to shipment. 
Release: Now 
Price: $190 
Included with price: On diskette: muLISP-79 
COM file, Utility library file, Trace facility 
file, Pretty printer file, & a demo game 
program. Printed: 60 page Reference Man- 
ual, fully indexed. 
Author: Albert D. Rich 
Where to purchase it: 

The Soft Warehouse 

P.O. Box 11174 

Honolulu, HI 96828 


Program Name: Plotter Graphics Package 
Hardware System: 8080/280 CP/M with 
either Houston (Instruments  Hiplot or 
Tektronix 40xx series terminal 
Minimum Memory Size: Depends on how 
many routines are used 
Language: Microsoft FORTRAN-80 and 
MACRO-80 
Description: Set of FORTRAN callable 
subroutines which implement the standard 
CALCOMP plot routines: PLOTS, PLOT, 
FACTOR, WHERE, SCALE, LINE, SYMBOL, 
NUMBER and AXIS. Also includes several 
additional routines to support log and 
semi-log plots, with optional grids. All 
plotting is done through one simple "driver" 
routine which may be developed for any 
particular plotter. Drivers currently exist for 
Houston Instrument Hiplot and Tektronix 
40xx series terminal (or equivalent). Entire 
ASCII character set is supported by SYMBOL 
routine. Provided as a 'User Library' from 
which externals may be satisfied at link 
time. Source code for both drivers are 
included. Several demonstration programs 
are included on the disk. 
Release: Currently available 
Price: Library and source for drivers; 
$100.00 Source for entire package: $1000.00 
Included with price: 8" 3740 CP/M style 
diskette containing REL files for each 
routine, source for drivers, pre-built library 
for Hiplot (via SIO2 port), and several sample 
programs using package. Enclosed manual 
describes calling arguments and operation 
of each routine. Coupon good for $100 off 
list price of Hiplot, from the Byte Shop of 
Columbia, S.C. 
Author: Lawrence E. Hughes 
Where to purchase it: 

Mycroft Labs 

P.o. Box 6045 

Tallahassee, FL 32301 
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Your CP/M system just isn't worth 
its salt...until it's been through 
a night like this. 


The Pirate stands ready to challenge your CP/M system to a 
battle of wit and endurance. As you traverse uncharted lands and 
seas, you'll meet up with wild animals, magical beings and a smart 
alec parrot. Adventureland and Pirate Adventure are two of the most 
mind-bending game simulations you'll ever encounter. (CS-9003) 
$24.95. 


Original Adventure is an undisputed classic. The treasures you 
seek are hidden in underground caverns. All you have to do is find 
them. It's easy...just overcome a giant clam, nasty little dwarves 
and other deathly perils. This game is bi-lingual so, to make it really 
a cinch, just type іп "GO FRANCE” and the characters will speak 
and understand only French. (CS-9004) $24.95. 


The Basic Games Library features 190 top-notch simulations, 
battles and strategy games from the celebrated Basic Computer 
Games Book and its sequel, More Basic Computer Games. Volume 
1 (CS-9001) and Volume |І! (CS-9006) include Super Star Trek, 
Slalom, and Checkers. Each disk is $24.95. Both disks and the 
Basic Computer Games Book are available for only $50.00 
(CS-9000). 


Volume ІІ! (CS-9005) and Volume IV (CS-9006) feature Yahtzee, 
Tennis, Wumpus and Grand Prix. The disks are $24.95 each. Both 
disks and the More Basic Computer Games Book are $50.00 
(CS-9007). The entire four disk collection also includes both big 
games books, edited by David Ahl, and is $95.00 (CS-9008). А! are 
on 8" disks, require 48K and Microsoft Basic. 


Your local computer store should carry Creative Computing 
Software. If your favorite retailer does not carry the software you 
need, have him call in your order to 800-631-8112. Or, you can order 
directly from Creative Computing. Write to Creative Computing 
Software, Dept. AHGG, P.O. Box 789-M, Morristown, NJ 07960. 
Include $1.00 for postage and handling. For faster service, call in 
your bank order toll free to 800-631-8112. 
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Program Name: BDS C Compiler 

Hardware System: Anything supporting 
CP/M 

Minimum Memory Size: 32K or more...the 
more, the better 

Language: 8080 Machine code for 8080's and 
Z80's 

Description: Compiles a good subset of 
UNIX С directly into relocatable load 
modules; a linker is provided to create the 
.COM files. Emphasis on speed and simpli- 
city of compilation. The "C" language is 
aesthetic and concise—very powerful, yet 
relatively "low level," allowing the program- 
mer to do just about anything. The compiler 
has been totally engineered to interact and 
co-exist with CP/M. It is comprised of two 
main segments, each about 10K, which 
operate in sequence to do a compilation. 
Instant support is always available by phone 
or mail from the author. No elaborate 
liscensing BS required. 

Release: Currently available 

Price: $125.00 ($20 for documentation 
alone). 


Included with price: Compiler, Linker, 
Library Manager, Libraries containing over 
75 utility and standard 1/О functions, over 
150K of sample sources, utility programs, a 
telecommunications program and more. 
Author: Leor Zolman 

Where to purchase it: 


Lifeboat Associates 
2248 Broadway 
New York, NY 10024 


Program Name: INFORMATION MASTER 
Hardware System: 8080 or Z-80 with two or 
more disk drives 
Minimum Memory Size: 32K 
Language: CONVERS, a language similar to 
Forth and Stoic (note: no additional lan- 
guage package is required to run) 
Description: Information Master is an infor- 
mation retrieval program for CP/M and 
CP/M compatible disk operating systems. 
The user creates free format text entries 
using his familiar text editor, setting off 
keywords or phrases with special character 
sequences. The program scans this text, 
creates a compact index, and builds a 
dictionary of all keywords encountered. 
Searches are made using single keywords or 
combinations of keywords in “and” and “or” 
clauses. A search of a data base with 500 
entries typically takes about 12-15 seconds. 
After matches have been found, all or part of 
the original text is recovered for listing, 
viewing, or copying to a new disk file. 
Distributed on 8” single density floppy and 
some 5” formats, write for available formats. 
Release: Now 
Price: $37.50 
Included with price: Information Master 
program with demonstration data base and 
configuration customizing program on disk. 
User’s Manual. 
Author: William B. Brogden 
Where to purchase it: 

Island Cybernetics 

P.O. Box 208 

Port Aransas, TX 78373 
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Program Name: HAM Radio DX Package 
Hardware System: 8080/2808 inch CP/M 
Minimum Memory Size: 24K 
Language: Machine 
Description: The Package provides ор- 
erating information for the HAM DXer. This 
includes directions (compass heading), 
bearings (degrees), distance (miles, kilomet- 
ers, hops), and time differential to the DX 
station. A paginated listing by prefix is 
produced. The programs are run on an 
interactive basis, simply by typing the COM 
file as a CP/M command. No RAM is taken 
by the data file as the data is called directly 
from the disk. The data base files can be 
edited to any length by the user. 
Release: Now 
Price: $22 
Included with price: .COM files, 370 country 
data file, 50 state data file, improved 
directory utility. All on 8 inch disk. 
Author: Ronald J. Finger 
Where to purchase it: 

FICOMP 

3017 Talking Rock Drive 

Fairfax, VA 22031 


Program Name: Video ASM 
Hardware System: Any memory mapped 
video board 
Minimum Memory Size: 1K 
Language: 8080 Assembler 
Description: This video driver presents the 
ultimate in flexibility. The driver can be 
rommed if the user desires. It requires about 
3/4K, and fits easily in a 2708 EPROM. The 
program will drive any size video board, with 
any line width or number of lines, without 
revision. The configuration and address of 
the video board are parameters provided at 
run time. It is quite capable of driving several 
different video boards, or several different 
windows on the same board, simultaneous- 
ly. All parameters are stored in an 18-byte 
area. To drive multiple displays simulta- 
neously, the user need only switch in or out 
the 18-byte parameter table desired. All 
control characters are stored in a second 
table. These are moved from the program 
body to a second table area, so they are 
subject to execution time revision by the 
user, even when the driver resides in ROM. 
When used in conjunction with an IMSAI VIO 
or Vectorgraphilc Flashwriter 11, non- 
displayed 128 bytes of the VIO RAM to save 
all tables and variables. This driver offers 
such features as software scrolling, full 
cursor controls (up, down, left, right), screen 
clear, line erase, and user definable cursor 
character. It can be called with a single byte 
of data to be displayed, the address of a 
string to be displayed, or the address of a 
string to be displayed some variable number 
of times (repeat). The “video driver will 
protect the contents of all registers during 
every call. They will be returned with their 
original contents. 
Release: Currently available 
Price: $40.00 
Included with price: Program source code 
and documentation. 
Author: Hawkeye Grafix 
Where to purchase it: 

Hawkeye Grafix 

23914 Mobile St. 

Canoga Park, CA 91307 
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e and The U.S. Departments of Agriculture, Commerce, 
Cad Labor and Treasury. Presented by this magazine. 


S-100 MICROSYSTEMS' Bugs 


In the March/ April issue (Vol 1/No 2) there 
were some errors in the article titled "North 
Star Topics." They are as follows: 

1) On pages 10 and 12 the order of 
paragraphs is incorrect. On page 10, from 
the end of column 1 proceed to page 12, 
column 1, line 3 of the text. From the end of 
the listing on page 12, column 2 proceed to 
page 10, column 2, line 2. Lastly, from page 
12, column 1, line 17 proceed to page 10, 
column 2, line 1. 

2) On page 10, column 2, line 2 of the 
program listing there should be a space after 
"CALL." Thus it should read: "CALL 
PRTBLK." 

3) On page 12, column 2, line: the ORG 
should be “24C3H” and not “243CH,” as 
shown. 

We would like to thank Charles Stevenson 
for calling the errors to our attention. 
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At last there is a magazine written exclusively for 5-100 system users. No 
other publication is devoted to supporting 5-100 system users. No longer 
will you have to hunt through other magazines for an occasional 5-100, 
CP/M* or PASCAL article. Now find it all in one publication. Find it in S-100 
MICROSYSTEMS. 


Every issue of S-400 MICROSYSTEMS brings you the latest in the 5-100 
world. Articles on applications, tutorials, software development, letters to 
the editor, newsletter columns, book reviews, new products, etc. Material 
to keep you on top of the ever changing microcomputer scene. 
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CompuPro S-100 Motherboards: 
esigned for the Future, 


AVAILABLE NOW 


You won't have to throw away these motherboards when you upgrade your system — they are specifically designed to 
handle the new generation of 5 to 10 MHz CPUs coming on line, as well as present day 2 and 4 MHz systems. Faraday shielding between all bus 
signal lines minimizes crosstalk; additionally, when signal lines cross each other on opposite sides of the board, they do so at a 90 degree angle to 
minimize any chance of stray coupling. You'd expect the company that pioneered active termination to include true active termination, but we've 
gone one step better by splitting the termination load between each end of every bus line. And you won't have to junk your present computer box 
with our new motherboards — all sizes fit Godbout, Vector, Imsai, TEI, and similar enclosures. 

These high-performance motherboards are available i in “unkit” form (edge connectors and termination resistors pre-soldered іп 


place for easy assembly), or fully assembled and ready to go. 


ЯСК-024 20 slot motherboard with edge connectors — unkit $174, assm $214 
ЯСК-025 12 slot motherboard with edge connectors — unkit $129, assm $169 
ЯСК-026 6 slot motherboard with edge connectors — unkit $89, assm $129 


g NOTE: Most CompuPro boards are "available | in in unkit 1 form m (sockets, bypass caps pre-soldered in place), assembled, or Ё 
- qualified under the Certified System Component (CSC) high-reliability program (200 hour burn-in, more). CSC memory | 
boards run at 8 MHz, are guaranteed to run with 6 MHz Z-80s, and draw even dess ss power than standard models 1 


CAREFUL ... NOT АШ 5-100 CPU BOARDS ARE CREATED EQUAL! 


You'll appreciate the extras that go into our CPU boards; take IEEE spec compatibility, for example. While others may claim compatibility, we meet all timing specs — and 


we'll be glad to send you timing diagrams for our CPUs to prove it (just include an SASE). You don't have to compromise on another “me-too” board ... 


THE ENHANCED/ADVANCED Z-80A 5-100 CPU BOARD 


Superior design in an IEEE-compatible board gives the power for future expansion as well as 
system flexibility. Includes all standard Z-80A features along with power on jump/clear, on- 
board fully maskable interrupts for interrupt-driven systems, selectable automatic wait state 
insertion, provision for adding up to 8K of on-board EPROM, 4 MHz operation, and IEEE 
compatible 16/24 bit extended addressing. $225 unkit, $295 assm, $395 CSC. 


THE COMPUPRO "RAM" SERIES OF STATIC MEMORY 


Recommended for commercial, industrial, and scientific applications. 4/5 MHz 
standard operation, no dynamic timing problems, meets all IEEE specifications, 
low power/high speed chips used throughout, extensive bypassing, careful ther- 
mal design. 


5-100 STANDARD MEMORY assm CSC 
КРАМ ША UC с $189 8239 
16K RAM Х-16. 25379 $479 
24K КАМ XX24. . $499 $599 
А. $689 5789 


5-100 EXTENDED ADDRESSING MEMORY 
(16/24 address lines; addressable on 4K boundaries) 
16K RAM ЖЯУ..52.52,52.5.............. 84.4............ 5299 5349 5429 


5-100 BANK SELECT MEMORY 


(Cromemco etc. compatible; addressable on 4K boundaries) 


16K RAM ХША-16 $419 $519 

24K RAM ХША-24.. $539 $649 

32K RAM XIIIA-32 $729 $849 

SBC/BLC MEMORY 

32K RAM М: еп ани п/а п/а $1050 
OTHER 5-100 BUS PRODUCTS 

Godbout Computer Enclosure. .......... $289 desktop, $329 rack mount 

Active Terminator Воагб................534.50 КИ 

2708 EPROM Board (less ЕРКОМ5)........ $85 unkit 

Memory Manager Воаг4................ $59 unkit, $85 assm, $100 CSC 

25 “Interfacer I" /O Воага............... $199 unkit, $249 assm, 6324 CSC 

ЗР Plus S “Interfacer II" I/O Board.......... $199 unkit, $249 assm, $324 CSC 

Mullen ЕхгепдегВоага.............. $59 kit 


Mullen Relay/Opto-Isolator Control Board. . $129 kit, $179 assm 


Vector 8800V 5-100 Prototyping Board... . . $19.95 ||| 


TERMS: Cal res add tax. Allow 5% for shipping, excess refunded. VISA9/Mastercard? orders ($25 
min) call (415) 562-0636, 24 hrs. COD OK with street address for UPS. Prices good through cover 
month of magazine. | 


ompuPro" 


Bldg. 725, Oakland Airport, CA 94614 


choose CompuPro. 


NEW! S-100 DUAL PROCESSOR CPU BOARD 


The Dual Processor Board is һеге... and CPU boards will never be the same again. 8088 
CPU gives true 16 bit power with a standard 8 bit S-100 bus; an 8085 gives compatibility with 
CP/M and 8080 software. Accesses ир to 16 megabytes of memory, meets all IEEE 5-100 bus 
specifications, runs 8085 and 8086 code in your existing mainframe as well as Microsoft 8086 
BASIC and Sorcim PASCAL/M™, runs at 5 MHz for speed as well as power, and is built to the 
same stringent standards that have established our leadership in S-100 bus components. In- 
troductory prices: $385 unkit, $495 assm, $595 CSC. 


8085 single processor version of above: introductory prices $235 unkit, $325 assm, $425 


SPECTRUM 5-100 COLOR GRAPHICS BOARD 


Includes 8K of IEEE-compatible static RAM; full duplex bidirectional parallel I/O port for 
keyboard, joystick, etc. interface; and 6847-based graphics generator that can display all 
64 ASCII characters. 10 modes of operation, from alphanumeric/semi-graphics in 8 colors 
to ultra-dense 256 x 192 full graphics. 75 Ohm RS-170 line output and video output for 
use with FCC approved modulators. Introductory prices: $339 unkit, $399 assm, $449 
CSC. Don't settle for black and white graphics or stripped-down color boards; specify the 
CompuPro Spectrum. 

Want graphics software? Sublogic's 2D Universal Graphics Interpreter (normally $35) is 
yours for $25 with any Spectrum board purchase. 


16K DYNAMIC RAM SPECIAL: 8/$59! 


Expand memory in TRS-80* -I and -И, as well as machines made by Apple, Exidy, Heath 
H89, newer PETs, etc. Low power, high speed (4 MHz). Add $3 for 2 dip shunts plus 
TRS-80* conversion instructions. Limited quantity. *TRS-80 is а trademark of the Tandy Corporation 


PASCAL/M" -- MEMORY SPECIAL 


PASCAL — easy to learn, easy to apply — can give a microcomputer with CP/M more 
power than many minis. We supply a totally standard Wirth PASCALIM™ 8" diskette by 
Sorcim, with manual, for $150 with the purchase of any memory board. Specify 7-80 or 
8080/8085 version. PASCALIM™ available separately for $175; manual available 
separately for $10. 


COMING SOON! 


We've got a new board coming up that's so versatile some of our 
people have nicknamed it the "smorgasboard": it includes (among 
other things) a real-time clock, interval timer, interrupt controllers, 
and math processor. We've also got a board in the works that greatly 

|| enhances the throughput and performance of multi-user (2 or more 

М terminal) systems, by assuming a lot of the overhead functions nor- 

| mally handled by the main CPU. Look for more details on these useful 
and functional products in the months ahead, or check with finer 
computer stores for additional information on these and other Com- 
puPro products. 
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